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Program Listings In The Transactor 

All programs listed in The Transactor will appear as they would on your screen in Upper/Lower 
case mode. To clariiy two potential character mix-ups. zeroes will appear as '0' and the letter "o" 
will of Course be in lower case. Secondly, the lower case L ( T) is a straigljt line as opposed to the 
number 1 which has an ang[ed top. 

Many programs will contain reverse video characters that represent cursor movements, colours, or 
Junction keys. These will also be shown exactly as they would appear on your screen, but they're 
listed liere for reference. Also remember: CTRL-q wiihin quotes is identical to a Cursor Down, et al. 

Occasionally programs will contain lines that show consecutive spaces. Often the number of spaces 
you insert will not be critical to correct operation o! the program. When it is, the required number ot 
spaces will be shown. For example: 



prim 



i h 



flush nghl ' ' - would be shown as - prinl ' '[10 spacesjflush right ' ' 



Cursor Characters For PET / CBM / VIC / 64 



Down - 
Up 

Right - ■ 
Left - [Lft] 
RVS 
RVSOff- 



Inseii - 

Delete - Q 
Clear Scm - P 
Home - Q 

STCff -H 



Colour Characters For VIC / 64 



Black - 
White - 
Red - 
Cyao - [Cyn] 
Purple^ iPurj 
Green - B 
Blue - Bl 
Yellow- [Vel] 



Orange - 
Bnnvn 

Lt. Red - 

Grey 1 - 

Grey 2 - 
U. Green - 

Lt. Blue - 

Gt«y3 - [Gr3l 



FuDcUon Keys For VIC / 64 



FI 
¥2 
F3 
F4 



FS- 
F6- 
F7- 
F8- 



/ 
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Makin* The Transactor 



Whew! I can't believe it's time for another editorial page. Since writing my 
last one the hands on the clock have been spinning like a crankshaft. I 
know, I know, you're thinking, "it seems like every second editorial he 
writes more tales of countless hours of sweat and toil, and it sounds like 
he's about to plunge into another one,". Well, I am, but it's not a sad song, 
quite the contrary. And it's not jus! me, , , we've all been chasing our tails 
over the last 10 weeks. 

Let me tell ya 'bout it! 

Sittin ' in the dassmom, ihinkin ' il 's a drag, 
Ustenin ' to the teacher, well that just am 't my bag, 

. . . oops, wrong lyrics. Oh, here they are, but the melody is the same 
(Smokin' in the Boys Room by Brownsville Station): 

Negoiioted terms, agreed to take the rap. 
Transactor would be sold to us for three dollars cash. 
But computers and assets, and outstanding debts, 
Would add up to more than we would ever expect. 

Signed alt the papers. Shook oil their hands. 
Said see ya later, And packed up the uan, 
Headed off to Richards, With one load then two. 
2o^clockA.M., and you know what we would do?. . . WeWgo. . . 

Makin* The Transactor 

Makin' The Transactor 

Well readers don 'tya Um^ about writbi ' this tune, 

'Cause everybody knows that Transactor must be out by June. 

Next day would come, time to check out the shop. 
Con.struclion hadn 'f started, but there 's no time to stop, 
Called up the landlord, "hey what 's happenin ' man?", 
'7f we don't move in soon, it's ipnna mess up our plan, for 

Program after proi^ram, loadin ' up to CompuServe, 

My faulty VDT is gonna kill my optic neroe. 

Prepared 2 meg of text, just 3 mote meg to go. 

By the time the DAs done well probably be haoin' snow. Andwe'llbe. . . 

(Chorus) 

Should we do this show, called Computer Expo?, 

Or should we get the mail sittin ' in Buffalo?, 

End up doin^ both, madeGLinfis 'till three. 

And all to find some fiids went on a T-Shirt stealing spree. 

Our place is almost ready, it 's almost time to move 

Our old lease is up. so we gotta do it soon. 

Better paint the warefiouse first, to keep the dust down, 

Y'know if we don 't, we 11 be cleonin ' all around. . . Before we go. . 



Rented out a truck to move 10 tons of magazines. 

There was desks and chairs and other stuff packed in just like sardines, 

the paclfages were heavy; they made our muscles strain. 

Heavin ' the 50 pounders way up top sure was a pain. Then we went. . . 



(Chorus) 



Csackbut. take it Benny. . . 7 



Richard was busy with his own set ofprobs. 
He had to get things going on a number of jobs. 
There was Lawyers, and Bankers, and Fishermen too, 
Keepin em all happy was like workin ' in a zoo. 



Mastercard. Visa, and old mother Bell, 
Were takin ' their time getting ready as weil, 
Customers are calling, their orders oren 't filled 
"Id love to help you sir. but Visa must be billed. 



+> 



The top floor was unfinished, it wasn 'f in the deal 

ft saved a bit of money and we thought, "no big ordeal", 

First there was sanding, then painting with blue 

The overspray gave me an unnatural hue. 

With Jim as the foreman, the carpet got laid, 
Then Rick came around and the counter got mode. 
Just in time too. for our opening due. 
The party is tommorrow but there 's still more to do. 

The counter was up, the equipment was not, 

We loaded Rick 's truck with an incredible lot. 

Grabbed the computers, the stereo, and TV, 

And were sure that on the way, wed be charged with B 'n' E. Jailed and. 

(Chorus) 

With the place all set up, it was time for the bash, 
We brought in the liquor and took out the trash. 
People came from all around, there 's some hungouer yet, 
^'Thanks for comin ' folks, now we ^oe got some type to set'\ 

Cause we^re. . . 

Late with The Transactor 

Late with The Transactor 

/Vouj readers I may not be that good with a rhyme. 

But now you all know why this Transactor won 't be out on time. 

(Spoken) Tune in next issue, same time, same place, for a more serious 
editorial. 




Karl J.H, Hildon, Editor in Chief 

with help from Nick and Chris. . . thanks guys! 
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Using "VERIFIZER" 



The TmnsQctor's Foolproof Pro^^ram Entry Method 



VERIFIZER should be run before typing in any long program from the 
pages of The Transactor. It will let you check your work line by line as 
you enter the program, and calch frustrating typing errors. The VERIFI- 
ZER concept works by displaying a two-lelter code for each program 
line which you can check against rhe corresponding code in the 
program listing. 

There are five versions of VERIFIZER here; one for PET/CBMs, VIC or 
C64, Pius 4, C128, and B128. Enter Ihe applicable program and RUN it. 
If you get a data or checksum error, re-check the program and keep 
trying until all goes welL You should SAVE rhe program, since you'll 
wan! ro use it every time you enter one of our programs. Once you ve 
RtJN the loader, remember to enter NEW to puf^e BASIC text space. 
Then turn VERIFIZER on with: 

SYS 634 to enable the PET/CBM version (off: SYS 637) 
SYS828 to enable the C64A/IC version (off:SYS831) 
SYS 4096 to enable the Plus 4 version (off: SYS 4099) 
SYS 3072, 1 to enable the CI 28 version (off: SYS 3072 0) 
BANK 15: SYS 1024 for B128 (off: BANK 15: SYS 1027) 

Once VERIFIZER is on, every lime you press RETURN on a program 
line a two-lelter report code will appear on the top left of the screen in 
reverse field. Note ihat these letters are in uppercase and will appear as 
graphics characlers unless you are in upper/ lowercase mode (pre,ss 
shifl/Commodore on C(14/VIC). 

Note: If a report code is missing (or "— ") it means weVe edited that 
line at the last minute which changes the report code. However, this 
will only happen occasionally and usually only on REM statements. 

With VERIFIZER on, just enter the program from tht* magazine nor- 
mally, checking each report code after you press RETURN on a line. If 
the code doesn^t match up with the letters printed in the box beside the 
listing, you can re-check and correct the line, then try again. If you 
wish, you can LIST a range of lines, then type RETURN over each in 
succession while checking the report codes as they appear. Once the 
program has been properly entered, be sure to turn VERIFIZER off with 
the SYS indicated above before you do anything else. 

VERIFIZER will catch transposition errors like POKE 52381,0 instead 
of POKE 53381,0. However, VERIFIZER uses a "weighted checksum 
technique" that can be fooled if you try hard enough; transposing two 
sets of 4 characters will produce the same report code but this should 
never happen short of deliberately (verifizer could have been designed 
to be more complex, but the report codes would need to be longer, and 
using it would be more trouble than checking code manually). VERIFI- 
ZER ignores spaces, so you may add or omit spaces from the listed 
program at will (providing you don't split up keywords!). Standard 
keyword abbreviations (like nE instead of next) will not affect the 
VERIFIZER report code. 

Technical info: VIC/C64 VERIFIZER resides in the cassette buffer, so 
if you're usitig a datasette be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities goes, 
VERIFIZER shouldn't cause any problems since it works through Ihe 
BASIC warm-start link and jumps to the original destination of the link 
after it's finished. When disabled, it restores the link to its original 
contents. 



PET/C8M VERIFIZER (BASIC 2.0 or 4.0) 



CI 

CF 

LI 

HC 

DH 

GK 

OG 

JO 

AF 

JN 

ON 

IB 

CK 

EB 

HE 

01 

JB 

PA 

HE 

EL 

LA 

Kl 

EB 

DM 



KE 
JF 
LI 
BE 

DH 
GK 
FH 
KP 

AF 

EC 
EP 
00 
MN 

MG 

DM 

CA 

NG 

OK 

AN 

GH 

JC 

EP 

MH 

BH 



: end 



1 rem* data loader for - venffzer 4.0 ' * 

15 rem pet version 

20cs = 

30 for I = 634 to 754;read a:poke i,a 

40cs = cs+a.next I 
50: 

60 if csOl 5580 then print"***** data error ••*'* 
70 remsys634 
80 end 
100: 

lOOOdata 76,138, 2,120,173,163, 2,133,144 
1010data173, 164, 2,133,145, 88, 96,120,165 
I020data145,201, 2,240. 16,141,164, 2,165 
1030 data 144, 141,163, 2,169, 165,133, 144, 169 
1040data 2,133,145, 88, 96, 85,228,165,217 
1050data201, 13,206, 62,165,167,208, 58,173 
1060 data 254, 1, 133,251,162, 0, 134,253,189 
1070data 0, 2,168,201, 32,240, 15,230,253 
1080 data 165, 253, 41, 3,133,254, 32,236, 2 
lOOOdata 198, 254, 16, 249, 232, 152, 208, 229, 165 
1100data251, 41, 15, 24,105,193,141, 0,128 
1110data165,251. 74, 74, 74, 74, 24,105,193 
1120data141. 1,128,108,163, 2,152, 24,101 
1130data251, 133,251, 96 

VIC/C64 VERIFIZER 

10 rem* data loader for "verifizer" 't- 
is rem vic/64 version 
20cs = 

30 for i = 828 to 958:read a: poke i,a 
40cs = cs-f-a.next I 
50: 

60 ft csOl 4755 then print"***"* data error ***** ": end 
70 rem sys 828 
SO end 
100: 

lOOOdata 76. 74, 3,165,251,141, 2, 3,165 
1010data252, 141, 3, 3, 96,173, 3, 3,201 
1020 data 3,240, 17,133,252,173, 2, 3,133 
1030data251, 169, 99, 141, 2, 3, 169, 3, 141 
1040data 3, 3, 96,173,254, 1,133, 89,162 
lOSOdata 0,160, 0,189, 0, 2,240, 22,201 
lOOOdata 32,240, 15,133, 91,200,152, 41, 3 
1070dala133, 90, 32,183, 3,198, 90, 16,249 
1080 data 232, 208, 229. 56, 32,240,255,169, 19 
1090data 32,210,255,169, 18, 32,210,255,165 
llOOdata 89, 41, 15, 24,105, 97, 32,210,255 
1110data165, 89, 74, 74, 74, 74, 24,105, 97 
1120data 32,210,255,169,146, 32,210,255, 24 
nOOdata 32,240,255,108,251, 0,165, 91, 24 
IMOdatalOl, 89,133, 89, 96 



VIC/64 Double Verifizer Steven Walley, Sunnymead, CA 

Wtien using ^VERIFIZRR^ wilh some TVs, the upper left corner of the 
screen is cul off, hiding the verifizer-di splayed codes, DOUBLE VERI- 
FIZER solves that problem by showing the two-letter verifizer code on 
both the first and second row ol the TV screen. Just run the below 
program once the regular Verifizer is activated. 
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100forad = 679to720;readda;pokead,da;nextad 

110sys679: print: print 

120 prjnt'doubleveritjzer activated ":nGw 

130datal20, 169, 180, 141, 20, 3 

140dala169, 2. 141, 21, 3, 88 

150data96. 162, 0,189. 0,216 

160data157, 40,216,232.224, 2 

170 data 208, 245, 162, 0, 189, 

180data 4,157, 40, 4.232,224 

190 data 2,208,245, 76, 49,234 



01 


11 40 data 20, 133,208, 


162, 0, 160, 0,189 


LK 


11 50 data 0, 2,201, 


48, 144, 7,201, 58 


GJ 


n60dala176. 3,232, 


208. 242. 189. 0, 2 


DN 


11 70 data 240, 22,201, 


32,240, 15,133,210 


GJ 


1180data200, 152, 41, 


3, 133,209, 32, 113 


CB 


1190data 16,198,209, 


16,249,232,208,229 


C8 


1200 data 165, 208, 41, 


15, 24,105,193,141 


PE . 


1210data 0, 12.165, 


208, 74, 74, 74. 74 


DO 


1220 data 24, 105, 193, 


141, 1, 12,108.211 


BA 


1230data 0,165,210, 


24, 101,208,133,208 


BG 


1240 data 96 





VERIFIZER For Tape User* 



Tom Potts, Rowley^ MA 



The following modifications to the Verifizer loader will allow VIC and 64 
owners with Dataselies to use tlie Verifizer directly (without the loader). 
After running the new loader, you'll have a special copy of the Verifizer 
prt^ram wfiich can be loaded from tape without disrupting the pro- 
gram in memory. Make the following additions and changes to the VIC/ 
64 VERIFIZER loader: 

NB 30 fori = 850to980: reada:pokei,a 
AL 60 if CS014821 then print" """^dataertor****' "; end 
IB 70 rem sys650 on, sys853 off 
~ 80 delete line 
" 100 delete line 

00 lOOOdata 76, 96, 3,165,251,141, 2, 3,165 
MO 1030data251. 169, 121,141, 2, 3,169, 3,141 
EG 1070datal33, 90, 32,205. 3,198, 90, 16.249 
BD 2000 a$= " verifizer.sys850[space] ^ 
KH 201Ofori = 850to980 
GL 2020 a$ = a$ + ch r$(peek(i)): next 
DC 2030open 1,1,1, a$:close1 
IP 2040 end 

Now RUN, pressing PLAY and RECORD when prompted to do so (use a 
rewound tape for easy future access). To use the special Verifizer thai 
has just been created, first load the program you wish to verify or 
review into your computer from either tape or disk. Next insert the tape 
created above and be sure thai it is rewound. Then enter in direct 
mode: 0PEN1:CL0SE1. Press PLAY when prompted by the computer, 
and wait while the special Verifizer loads into the tape buffer. Once 
loaded, the screen will show FOUND VERIFIZER.SYS850. To activate, 
enter SYS 850 (not the 828 as in the original program). To de-activate, 
use SYS 853. 



PK 
AK 
JK 
NH 
OG 
JP 
MP 
AG 
ID 
GF 
fvlG 
HE 
VM 
JA 
El 
KJ 
DH 
M 
KG 
EF 
CG 
EC 
AC 
JA 
CC 
BO 
PD 



C128 VERIFIZER (40 COfumn mode) 

1 000 rem ' data loader for - verifizer c1 28 " 
1010 rem * commodore c1 28 version 
1020 rem * use in 40 column mode ontyl 
1030 cs = 

1040tDrj = 3072to3214: readx. poke i,x: ch =ch-hx: next 
1 050 if chOI 7860 then print " checksum error " ; slop 
1 060 print " sys 3072, 1 : rem to enable " 
1070 print " sys 3072,0; rem to disable " 
1080 end 

1090dala208, 11,165,253,141, 2. 3,165 
1100data254, 141, 3, 3, 96,173, 3, 3 
1110data201. 12,240, 17,133,254,173, 2 
1120data 3,133,253,169, 38,141, 2. 3 
1130data169, 12,141, 3, 3, 96,165, 22 
1140data133, 250, 162, 0,160, 0,189, 
llSOdata 2,201, 48,144, 7,201, 58,176 
1160 data 3, 232, 208, 242, 189. 0, 2, 240 
1170data 22,201, 32,240, 15.133,252,200 
1180data152, 41, 3,133,251, 32,135, 12 
11 90 data 198, 251, 16,249,232,208,229, 56 
1200data 32,240,255,169, 19, 32,210,255 
1210data169, 18, 32,210,255,165,250, 41 
1220data 15, 24,105,193, 32,210,255,165 
1230data250, 74, 74, 74, 74, 24.105,193 
1240data 32,210,255,169,146, 32,210,255 
1250 data 24, 32,240,255,108,253, 0,165 
1260data252. 24,101,250,133,250, 96 



B 128 VERIFIZER 



Elizabeth Deal, Malvern^ PA 



If you are going to use tape to SAVE a program, you must de-activate 
(SYS 853) since VERIFIZER moves some of the internal pointers used 
during a SAVE operation. Attempting a SAVE without turning off 
VERIFIZER first will usually result in a crash. If you wish to use 
VERIFIZER again after using the tape, you'll have to reload it with the 
0PEN1:CL0SE1 commands. 



Plus 4 VERIFIZER 

1 000 rem * data loader for ' verifizer -+- 4 ' 

1010 rem • commodore plus/4 version 

1020 graphic 1: scnclr: graphic 0: rem make room for code 

1030 cs = 

1 040 for j = 4096 to 42 16: read )t; pokej,x;ch = ch + x: next 

1050 if ch<>13146 then print "checksum error"; stop 

1060 print "sys 4096. rem to enable' 

1070 print "sys 4099: rem to dtsable " 

1080 end 

1090data 76, 14, 16,165,211,141, 2, 3 

n00data165,212, 141, 3, 3, 96,173, 3 

mOdala 3,201, 16,240, 17.133,212,173 

1120data 2, 3,133,211,169, 39,141, 2 

llSOdata 3,169, 16,141, 3, 3, 96,165 



Nl 
PW 
EE 
NH 
Jl 
AP 
NP 
JC 
tD 
PL 
CA 
OD 
LP 
EK 



1 rem save''@0:veritizerb128",8 
10 rem* data loader tor "verifizer bl28" * 
20cs = 

30bank15.fori=^1024toll63:reada:pokei,a 
40cs = cs + a:next i 

50 if csOl 6828 then print " " • data error " * " : end 
60 rem bank 15. sys 1024 
70 end 

lOOOdala 76, 14, 4,165,251,141,130, 2, 
1010data141,131, 2. 96,173,130, 2,201, 
1020 data 17,133,251,173,131, 2,133,252, 
1030data141, 130, 2, 169, 4, 141, 131, 2, 
1040data 1, 72,162, 1,134, 1,202,165, 
1050 data 233, 32, 118, 4,234, 177, 136, 240, 
loeodala 32,240. 15,133,235,232,138, 41, 
1070data234, 32,110, 4,198,234, 16,249, 
1080data230, 165, 233, 41, 15, 24.105,193, 
1090data208, 165, 233, 74, 74, 74, 74, 24, 
1100 data 141, 1,208, 24, 104, 133, 1, 108, 
1110data165,235, 24,101,233,133,233, 96, 
1120data164, 137, 133, 133, 132,134, 32, 38, 
1130data 32, 78,141,165,133, 56,229,136, 
1140data170,170. 170, 170 



165,252 

39, 240 

169, 39 

96,165 

27,133 

22, 201 

3,133 

200, 208 

141, 

105,193 

251, 

165,136 

186, 24 

168, 96 
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Got an interesting programming tip. short routine, or an unknoivn bit of 

Commodore trivia? Send if in - if we use it in the Bits column, we 'II credit you in 

the column and send you o free one-year's subscription to The Transactor 



Ok, we ue got a great bunch of bits for you this time! We start 
with a couple of screen blitzes for the 64. the kind of program 
that made the bits section famous. 



The Jiggler 



Loren TeilloD, Mrginia Beach, VA 



Make your C64 'Twist and Shout" - just try this simple program 
and see what happens. 

100for1 = 0to 15: poke53270,t: next: goto 100 

Jusl remove the GOTO to use this in your programs. Experiment 
with the for-next values for different effects. Great for games. 



The Striped Crawler That 
Drips Blood and Kills People 



Martin Spencer 
Brampton, Ontario 



Ooh, a real scary one this is. kids! Ok, so it doesn 't drip blood. 
Well a doesn 'I hill people either Ok. maybe It isn 'i that scary, 
but look at those stripes in the border! 

10a = 532e0;b = 0:c = 11:d = 12:e=15 
20pokea,b:gQSub30:pokea,l:gosub30:pokea,d 

:go3ub30:pokea,e:gosub30:goto20 
30 :: return 

(Make sure the two colons precede the RETURN on line 30,) 
Ahem. Now on to so/ne slightly more serious topics. 



ilesets Revisited 



Keith Hendren 
Kelvington, Saskatchewan 



The Commodore 64C has an advantage over the older 64 in the 
way the reset lines are set up. In the newer model, a reset in the 
serial port will not reset the computer; similarly a reset in the 
user or expansion port will not reset the serial line. This gives us 
the opportunity to install two reset switches - one between pin 3 
of the user port and ground, the other between pin 6 of the serial 



port and ground, {See the Commodore fj4 Programmers Refer- 
ence Guide or The Complete Commodore Inner Space Anthol- 
ogy for numbering of pins.} There is plenty of room above the 
cassette port in the back of the lower half of the computer case 
for the SPST momentary contact switches. Here they are fairly 
immune to accidental operation, and don't prevent easy removal 
of the top of the keyboard. 

There are several advantages to having two reset switches. In 
many cases a disk or printer operation can be discontinued 
without locking up the computer by resetting the serial line. 
Sometimes this will also free a program that has locked up with 
the drive running. Similarly when a program crashes with the 
drive light flashing, you can reset the computer and then read 
the error channel or "m-f' around inside the drive memory for 
a possible clue as to what has happened. 



1541 + 1702 = *?$*!! 



Graham Reed 
Toronto, Ontario 



Ttie Transactor 



Tm sure you've all heard advice about not having your disk 
drive or ca,ssette deck on the left side of your Commodore 
monitor. Well, if you want some real proof, with no fancy gear at 
all, here's what to do: 

1) Get a telephone. One that has a separate base and handset is 
a must, 

2) Turn on your computer and monitor, 

3) Unplug your phone and take it to your computer. 

4) Hold the base of the phone to the left side of the monitor, and 
listen to the handset. 

5) Realize that the buz^ you are hearing is cau sd by a magnetic 
field in the bell coils of your phone, . . and imagine what that 
may be doing to your disks. 

Okay, now we know why you shouldn't keep your disk drive 
near the left side of your monitor. But, and this is a biggie, if you 
are not having any problems with your disks and drive, do not 
change your setup! The reason for this is very simple. All the 
disks you have formatted with your current setup (assuming that 



J 
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thai your drive is on the left, , .) have had this magnetic field 
affecting the drive. If you move the drive, then the field won't be 
affecting the drive, and your dala will be fine, right? 

Wrong. When the field is gone, the drive goes back into (or, from 
your point of view, out of) alignment. This means that your disks 
that were formatted on the left will have their data compensated 
for this magnetic field, and when the field is gone, it may have 
trouble reading the data, 

I had very little trouble with my drive, except when trying to 
load some protected commercial programs. Tilting the drive on 
its side seemed to do the trick! 



Do You Know 
Where Your Head Is? 



Harold R. Skewes 
Birmingham, Alabama 



1 program a little in machine language and once in a while my 
programs don't work out and the disk drive slicks or jams. 
Usually 1 take the drive apart and move the read/write head to 
solve the problem. It started to happen frequently, so 1 left the 
lop of the drive's case off so that i could just reach in to move the 
head. My drive collected quite a lot of dust, and some other 
things, with the cover off. 

Then I found a better way One day as I reached to make the 
adjustment, the head vibrator protector that the drive was 
shipped with fell to the floor. As I picked it up, I took a good look 
at it, then turned off the drive and inserted it into the slot. The 
tab on the cardboard pushed the head back to track one, and the 
drive was ready lo use again! 

For yet another solution to head-correction, see the next bit. 



More 1541 Tips 



Wayne McDaniet 
Terre Haute, IN 



As one of the many owners of the Commodore 1 54 1 disk drive/ 
oven, I would like to offer a few tips: 

First, it's been said before, but cutting a couple of pencils into 
about 2 '/2 to 3 inch lengths and putting them in the screw holes 
increases the air circulation through the drive and keeps it 
cooler. 

Second, 1 just had my drive realigned for the second time in six 
months, and the second shop where 1 had it done gave me some 
good advice. After the drive was properly aligned, they put some 
permanent epoxy on the drive stepping motor to prevent it from 
being knocked back out of alignment. They said that several 
people had taken their drives to other shops for alignment 
before bringing it to them, and the drive had just gone back out 
of alignment in 4-6 months. They told me that the epoxy 
seemed to be an almost permanent solution to the problem. 

Third, the read/write head on my drive has on several occa- 
sions gotten hung up. 1 have found that if you take the disk out 
and tell the drive LOAD " * " ,8, this will gel the head back into 
position. 



Finally, 1 have to say that The Transactor is without a doubt the 
perfect magazine for all Commodore users. 

That last part has been sent in by others already but good 
advice is worth repeating - Ed 



Break C64 



Paul Bougard 
Harmlgnies, Belgium 



Tills program lets you put a virtual break anywhere in a BASIC 
program. Just set a break with the syntax: 

sys 828,<line number> 

For example, to stop your program at line 250, you would give 
this command in direct mode: 

sys 828,250 

Then, when you run your BASIC program, it will stop with the 
message "Break in line 250", when that line is about to be 
executed. The specified break only occurs once; if you run the 
program again, it will run as usuaL This is a very handy 
debugging tool, and it saves you from having to put STOP 
commands into your program at various points. 

Just run the loader program below to put ''break c64" in place. 



1 rem break c64 

2 rem create a virtual break 

3 rem syntax: 

4 rem sys 828, fine to break 

5 rem paul bougard 1986 
101 = 828 

20 read a: if a = 256 then end 
30 poke i,a: i + i+ 1: goto 20 
828 data 32,253.174, 32, 
836 data 133, 251J 65, 21, 
844 data 141, 8, 3, 169, 
852data 96,165, 123,201, 
860 data 252, 197, 58,208, 
868 data 57.208, 25, 169, 
876data169J67, 141, 9, 
884 data 233. 4, 133,122, 



892 data 56. 
900 data 8, 
908 data 173, 
916 data 3. 



32, 52,168, 
3, 141,104, 
9, 3,141, 

96, 256 



107, 169, 

133,252, 

3,141, 

2, 240, 
31,165, 

228,141. 

3,165, 

176, 2, 

76, 228, 

3, 141, 
109, 3, 



165, 20 

169, 85 

9, 3 

37, 165 

251, 197 

8, 3 

122, 56 

198, 123 

167,173 

129, 3 

141, 130 



128 Notepad 



John M. Paterson 
Houston, Texas 



Frequently when entering BASIC programs from magazines [ 
add REM statements to identify the source of the article and the 
major functions and commands of the program- With machine 
language programs, however, REM statements are obviously not 
a possibility. 
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Now that I have a C128 i can record most of a 40-coiumn 
screenful of instruchons and other information by typing the 
screen exactly as ( want to see it (except for the bottom 5 lines). 
Then I give the command: 

bsave '^hlename.n\p1024 top1824 

L 

This saves the screen in a binary file. Later, when I want to view 
the instructions I can place the cursor on the 6th line from the 
bottom of the 40-column screen and enter: 

bload "filename. n" 

using thtj same filename used to save it. This fills the screen with 
instructions without erasing the program in memory. The "m" in 
the filename is used as a reminder that the file is a ''notepad^' file. 



128 BASIC Linefinder 



PhiUp C, Herold 
Seattle, Washington 



Save C-128 Variables 
in RAM Expansion 



Richard D. Young 
Greenwood, Nova Scotia 



STASHing and FETCHing BASIC program variables to and from 
C-128 RAM expansion can be tricky. The information required 
for sucfi an operation is included in the manual that comes with 
the RAM expansion module, but it must be interpreted with 
care. First of all, since I/O is enabled for the BASIC commands 
involved in RAM expansion activity, the top of variables pointer 
must be set to the beginning of the I/O memory area at $D000 . 
Do this with POKE 58,208: CLR, then STASH and FETCH 
variable data from $0400 to $D000 of BANK 1 ONLY. Secondly, 
the C-128 BANK number used for DMA to and from RAM 
expansion is determined by the VIC RAM bank pointer at bit six 
of $D506. This bit must be set before activating RAM expansion 
activity associated with BANK 1 variables, and re-zeroed after 
such activity. Thirdly, and obscure characteristic of the C-128 
bank configurations and their overlap dictates that the variable 
pointers that reside in $0()00-$0400 always be written to RAM 
BANK 0. This means that variable pointer data must be read 
from and written to the C-128 in the BANK or BANK 15 
configurations, not BANK 1. 

The following subroutines illustrate the process of saving C-1 28 
variable data in RAM expansion banks, 

100: rem fetch variables from expansion ram bank'rb' 
110; 

120 poke 54534, (peek(54534) or 64): bank 1 : slow 

130 fetch 52224,1024,1024.rb: bank 15: poke 54534.4 

: fetch 10,49.49, rb 
140!etch4,71,71,rb: return 
150: 

160 : rem stash variables in expansion ram bank 'rb' 
170: 

1 80 poke 54534, (peek(54534) or 64); bank 1 : slow 
190 stash 52224,1024, 1024, rb: bank 15: poke 54534,4 

: stash 10,49,49,rb 
200 stash 4, 71J1 ,rb: return 



If you've ever looked through the BASTC text storage area with a 
monitor's memory dump, trying to find thai one elusive to- 
kenized line, this will save you some eyestrain. It accepts a line 
number passed through the USR function, calls some routines in 
the BASIC 7.0 jump table, and returns with the address of the 
line- For instance, if you're looking for line 1000, . 

print hex${usr(1 000)} 

prints the starting address, in hex, of the tokenized line. The 
unused bytes in page 10 of the 128 provide a space that's just 
about right for the job. 



A F0AC8 
A FOACA 
A FOACC 
A FOACF 
A F0AD2 
A F0AD3 
A F0AD6 
A F0AD9 
A FOADB 
A FOADD 
A FOADF 
A F0AE1 
A F0AE3 
A F0AE4 
A F0AE6 
A F0AE9 
A FOAEA 
A FOAEC 



LDA #$D3 
LDX #$0A 
STA $1219 
SIX $121 A 
RTS 

JSR $AFOC 
JSR $AF8D 
BCC $OAE A 
LDA $61 
LDX $62 
STA $65 
SIX $64 
SEC 

LDX #$90 
JSR $AFOF 
RTS 

LDX #$1 1 
JMP($0300) 



;point usr vector at $0ad3 



;float-to-integer 
;search for line number 
; branch if not found 



;int-lo-float routine fetches from 
; these zero-page locations 
; and requires this precondition 
; as well as this one 
;integer-to-float 

; " undef'd statement " error 



If you use this area of memory to hold the code, SYS 2760 starts 
thing.s running- You can put it anywhere else below BASIC text 
in bank 1 5 by changing where the USR vector points. 

This could be handy if you want to use a monitor dump to slip 
some colour change or control characters into your REM state- 
ments. You could even use it from a running program as part of a 
scheme to make changes ''on the fly"; for instance, to change 
REMs to PRINTS, or vice versa. 



No-line LIST 
For the 128 



K. van MU 
St. Ann*5f Ontario 



In The Transactor Volume 7 Issue 03, there was a simple method 
for the C64 to convert PAL^-format assembler source code to 
CBM assembler format, called "Easy PAL to CBM Source Con- 
version'\ The POKE for convincing the 128 to do this was not 
given. On the 128, POKE 24,37 stops the printing of line 
numbers for a LIST POKE 24,27 returns the system back to 
normal. The complete method looks like this: 

open 1,6,2, "ftlename,s,w"; cmd 1; poke 24,37: list 
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Then, to return things to normal after the LIST: 

print#1: cfosel: poke 24,27 

I like to use 128 mode to enter programs because Ihe numeric 
keypad and the extra editing features makes program entry and 
correction a lot easier. 



Table Look -Up 
Without Arrays 



James MacFarlane 
Islington, Ont. 



Here are some quick ways to look up a string within a table 
without putting it all in an array, 

L 

F 

1 print mid$( " JanFebMarAprMayJunJulAugSepOctNov 

Dec\(mo-1)^3 + 1,3) 
20 pa=1-pa: print "Pager is " +mid$("OFFON " 

,3*pa + 1,3) 
30 dx = 1-dx: print mid$(HALFFULL\dx*4+ 1.4) 

+ " Duplex " 

Line 10 will print the abbreviated name of a month given its 
number (1 through 12). Lines 20 and 30 show the use of two- 
state indicators that are toggled. 

Mid-string functions save time and memory space since an 
array does not need to be defined or filled with data. 



lated wire. Use R2 to calibrate the circuit. A 9V battery will run 
the circuit for around 48 hours; when there is no danger to your 
equipment, you can shut it off by disconnecting the battery (you 
can install a switch to do this). Good luck! 



+ 9V 



Rl 

3.3 K 




Ml 
0-1 mA meter 



(Antenna) 




Q! 
2N3819,elc. 



An ultra-simple 
FET eleclromeler 



Here is the general form of the technique: 

print mid$(" FREDJOHNSUE DAVE " , (position-1)* 
(element length) + 1 .element length) 

In this case the length would be four. The technique is easy to 
use and can be applied to a variety of programs. 



Static Detector 



Andrew Fernandes 
St. John's, Newfoundland 



Recently a friend of mine just came back from the repair centre 
where he had his C64 hxed from static electricity damage. Too 
bad computers don't have Blue Cross, If the fellow ^s lucky, he 
might be able to pay back the loan within 20 to 30 years. 

Not having a credit rating such as his, 1 decided to protect 
myself. The result, after a good one-hour search of eight years* 
worth of electronics magazines, is the following circuit taken 
from Computer S Electronics. January 1984 (Vol 22, *1), page 
98 in a column written by Forrest M, Mims IlL 

This electrometer is quite sensitive and delects negative static 
charges from several feet away. Unfortunately, humans gener- 
ally develop positive charges, so a simple solution is to replace 
the 2N3819 N-channel JFET with a 2N3S20 P-channel device. 



Marbte Madness 
Teamwork Tip 



David A. Butcher 
Cleveland, Tenessee 



Want to increase your scores in that arcade hit, ''Marble Mad- 
ness" by Electronic Arts? Simply play with a friend! No, not 
against a friend, ivith a friend, as follows: 

Some of you may have noticed that when playing in one-piayer 
mode, both joysticks/trackballs can control the ball. An annoy- 
ing bug, right? WRONG. Put it to your use - BOTH of you can 
play the same ball, simultaneously! Be sure to have both 
joysticks or trackballs plugged in, and select single player mode. 

Both of you can help control the ball, and best of all, if both of 
you use the "turbo" option {fire button), you add enough power 
to knock the steelie backwards in his tracks! And enough power 
to simply whizz by the vacuum nozzles without any deflection at 
all! 

Scores of well over 24,000 points are easily attainable with this 
method, and the sixth frame is now easily reached. 

Teamwork. It works! 



Simple C64 Hi-Res 
Printer Dump 



Mark Beckman 
Pomona, California 



The circuit is simple enough to directly build into a small 1 have seen quite a few routines in The Transactor and other 
PLASTlCbox, the antenna simply being a short piece of uninsu- magazines to dump a hi-res screen to a printer, but none of 
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them have been as fast, short and simple as this one. One word 
of warning: in order to be as simple as it Js, this routine cheats - it 
prints the screen sideways. 

1 00 print: open 4,4,4: prints. chr$(27);chr$(65);chr$(8) 

110s = 8192:gf$ = chr$(27} + chr$(75}-fchr$(200) 

H'Chr$(0) 

120forx = 0to321 step 8: print#4,gr$; 
130 for y = 7680 too step -320: for z= 7 too step -1 
1 40 print#4,chr${peek(s + X + y + z));: next: next: prinlM 
; next 

Line 100 opens a channel to the printer through a Cardco 

interface'in '^transparent mode"; another interface or setup may 

need a different open statement. The PRINT* statement sets line 

feeds to 8/72 inches on a Star SGIO printer. Your printer may 
differ 

Line 110 sets the base address (in this case 8192) and puts the 
sequence to teli the printer to expect 200 bytes of graphics data 
into GR$. Once again, this sequence may be different from 
printer to printer. 

The rest of the routine just peeks a byte at a time from the hi-res 
screen and sends it to the printer. 

To make the routine stand alone as a program, the following 
lines could be added to get a hi-res screen from disk. 



60 if flag = 1 goto 100 

70 poke 51 ,0: poke 52,32: poke 56,32: clr: flag 
80 input ' filename ";f$: iff$= " " then end 
90 load f$, 8,1 



-1 



Ribbon Alternative 



Larry Cossaboon 
Saint John, New Brunswick 



While doing hi-res dumps on my 1 526 printer, 1 found that I was 
going through printer ribbons more quickly than usual. To solve 
the problem, 1 took advantage of the printer's friction-feed 
capability and put a piece of carbon paper over the paper I was 
printing on and removed the ribbon. 

Not only does the carbon paper save on ribbons, but it allows 
printing on clear acetate for use with overhead proieclors, etc. 



Formatting An 
Un-Notched Disk 



A. J. Saveriano 
Sparta, New Jersey 



the two screws that hold the metal shield in place- Remove the 
metal shield. 
4. On the top left side of the PC board are five connector plugs in 
a row. The long centre one is the one we want. 

5- The pins on this plug are numbered from back to front. We 
want numbers 12 and 13. 

6- Pin number 12 will have an ORANGE wire and pin 13 will 
have a GREEN wire. 

7, Install a jumper between these two wires and you will be able 
to format and write to an un-notched disk, 

A jumper is a simple wire that joins or shorts two other wires or 
points on a PC board. You can install a SPST switch between 
these wires instead, then use the switch to easily go from norn:ial 
to un-notched formatting. 

important: Moke sure that the switch is in the normal (off) 
position before remooing or inserting a disk, otherwise the DOS 
will not be aware of disk changes and it could get confused 
between disks and destroy data. 



Protect Tiiose VectorsI 



Randy Rizun 
Hamilton, Ont. 



In the Bits and Pieces section of Volume 7 Issue 4, Philip Herold 
slated, '*We all know what pressing RUN/STOP-RESTORE on 
the 64 does to our IRQ-driven wonders: it resets the IRQ vector 
and disables them/\ Well. . . 

I've found a way to preserve the IRQ vector, or any other vector, 
after a RUN/STOP-RESTORE, The main BASIC program loop is 
vectored through $0302, so by changing it, whenever the 
''READY" prompt appears, your vectors will be installed again. 
Here's one way to accomplish it: 



The following modification to the 1 54 1 disk drive will allow you 
to format and write to an un-notched disk- 



entry 


da 


#<setback ;change the main oop vector 




sta 


$0302 




Ida 


#>setback 




sta 


$0303 




jsr 


setirq 




rts 




setback jsr 


setirq 




jmp 


$a483 


etirq 


sei 






Ida 


#<irqrtn 




sta 


$0314 




Ida 


#>lrqr!n 




sta 


$0315 




cli 






rts 





1. Carefully turn the drive upside down and remove the four irqrtn 
screws. 

2. Turn it right-side up (hold the drive together!) and remove the 
top. 

3. Turn it on its side with the TOP to your RUGHT and remove 
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+ n 



;irq-driven routine starts here 



jmp $ea31 ;exit through end of irq routine 
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Sorting On The Fly 



Martin Hofheinz 
Stockton, CA 



Sorting is certainly one of the most common things done by a 
computer. 

The programmer has a wide variety of sorting algorithms from 
which to choose. Some are faster with pre-sorted lists; some are 
faster with un-sorted lists. Machine language sorts are the 
fastest, but they are tricky to incorporate into BASIC programs. 

The usual approach is to first enter the data, then sort it after it is 
all entered. 

Another way to sort is to enter the data, and sort each item os it 
is entered. This system works especially well with keyboard 
input, where data must be entered manually. The actual sorting 
is not too fast, but since it Is being done at the same time you are 
looking up names, addresses, etc., the overall program run time 
can be shorter than if everything was sorted at once. 

The following simple program illustrates a sample sorting rou- 
tine for sorting lists of names and ages by either name or age. It 
creates pointers to the unsorted arrays "tSf (containing the 
names) and "a$(" (the ages}. The arrays of pointers are "a{" for 
the names and "b(" for the ages - these arrays hold the element 
numbers of the other arrays in sorted order. As each item is 
entered, it rises from the bottom of the list until it reaches its 
proper place. 

The program is written as simply as possible, with no attempt at 
elegance. 

10 input "how many names ";n 

20 dim a(n),b{n},a${n),l$(n) 

30forj = 1 ton: print; print "number";] 

40 input" surname ';s$ 

50 input "first name ";f$ 

60t$(j) = s$ + \ " + f$: rem combine surnames 

with first names 
70 input ^ age ";a$(i) 
80a(j)=j: h = j + 1 
9Oh-h'1:ift$0<t$(a(h-1})thena(h) = a{h-1) 

: goto 90; rem sort names 
100a(h)=i 
110bG)=j:h=l + 1 
120h = h-1:ifaS®<a$(b(fi'-1))thenb(h) = b(h-1) 

;goto 120: rem sort ages 
130b(h)=j 
140 nextj 

1 50 print: print " sorted alphabeticaHy; " 
160forj = 1 ton 
170 print t$(ati)),a$(a(j)) 
1 80 next j 

190 print; print" sorted by age; ' 
200forj = 1 ton 
210 print t${b(i)),a${bG)) 
220 next j 



IVansBlooperz 

Volume 8 Issue 1: Strange Cases of Backwards Braces 

Programmers who typed in the C listing for "TrapSnapper" probably 
noticed that all the open and close braces were reversed. (Blush.) We 
hope this didn't confuse anyone. 

Volume 7 Issue 6: EPROM Programmer Update 

William Coleman of Green Cove Springs, FL wrote in with this fix to the 
BASIC program on page 4K Line 80 reads in part ^ad(4)=57087', U 
should read ^ad(4)=57089'. 

..And another one from Alan Reece of Everett Washington, regarding 
the personality module for the 2764 on page 42: the jumper going from 
pin 1 to pin 24 should be changed to go from pin 1 to pin 22. He also 
gives this tip; 'Tersons using surplus 2764's should try voltages from 12 
Volts up. The AM 2764-2DCB Tm using required about 18,3 volts. 
Anything above or below this voltage would not work." 

Volume 7 Issue 6: Textscan 

A little typesetting slip up split one line into two on the 5lti line of page 
57. "CALL BDOS" should be on one line. Also, on page 58, another 
typesetting anomoly would cause a sumcheck error. The line starting 
with "linasc;" defines bytes in memory as 5 zeros, a colon, AND a 
space. Typeset spaces are so small that il would go unoticed by most. 
Our apologies - we'll make sure they're bigger from now on. 

Volume 7 Issue 3: Keyboard Expander 

John M. Palerson from Houston, Texas ob.served that Aubrey Stanley's 
^"Keyboard Expander" was not fully compatible with C64 version 1 
ROMs and sent the following fix. With this correction, the shift-FS (dear 
to end of line) and logo-F3 (clear to end of screen) will work properly 
with the early machines. 

Make the following changes lo the program ' ke.gen " : 

1000 rem program to create file 'ke.l " on disk 
1002 rem modified for 1 st generation ROM 
1004 rem byj. palerson, houston, tx 

1006 rem 9/4/86 

1007 rem changes in lines 1030,1040,1060, 
1070,1550.1900,4450,4470 

1008 rem line 4475 added, 
1030 for ]=1 to 2753: read x;ch-ch + x: next 
1 040 if ch<>276696 then print " checksum error " : end 
1060 open 8,8,8/ 0:ka1,p,w^ 
1070 for 1=1 to 2753: readx 
1550data108, 27, 0, 0, 16,129, 47, 10 
1900data129, 32, 1, 10, 96,136, 97, 48 
4450data 97,162, 0,129,189, 6, 10, 98 
4470data 97,144,245, 96, 96, 97,169, 1 
4475 data 97,145,243, 96. 96,112, 75, 69 



Volume 6 Issue 6: VARPTR 

This one's over a year old, but was only recently brought to our 
attention: Randy Winchester from Quincy, MA reported problems with 
the short VARPTR program on page 40. The problem is not with the 
program but with the instructions on how to use it to find the address oE 
a string variable in memory. The text erroneously used a peek(v) 
instead of peek(v-+- 2). The correct syntax is: 

print peek(v -i- 1 ) -i- 256*peek(v + 2) 
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Amiga coverage unjust: I feel that you are doing your loyal 
readers an iiijustic c by including so many articles on the Commo- 
dore Amiga, especially in your May 1 987 issue {volume 7, issue 6), I 
liope you realize that the Amiga has a completely different operat- 
ing system than the other Commodore computers, and has a 16 
rather than an 8 bit microprocessor Commodore is now branching 
out into PC clones as well as the Amiga line. 

I purchased a subscription to your wonderful magazine on the basis 
of the C64/C 1 28 mformation and articles. If you intend to branch 
out into other areas, please cancel my subscription because I do jiot 
want a magazine for computers that I do not own. If I owned an 
Amiga, I would subscribe to a magazine like Amiga World. I hope 
you can realize the harm you are doing by publishing these articles, 
and that you will eventually lose your faithful following of dedicated 
Commodore 64/128 owners. 

Bernard H.Weiss, Edison, New Jersey 

Wefh Bernard, we hote to disappoint readers, bui let us just draw 
your attention to the front cover of any Transactor Rigfii under tf}e 
name, you'll see a message prominently displayed: 'The Tech/ 
News Journal For Commodore Computers". Like the Amiga. 

On the other hand, we admit you have a valid point. Ourprograms 
for the Amiga are not going to run on your 64 or I2S, and the 
articles that tell you how it works aren 'l going to fjelp you mucfi 
either. And that^s why, for the time being at least, we^re restricting 
our Amiga coverage to something like 20 or 25 per cent of the 
magazine. 

Sooner or later, though, something's got to give. We'll be oery 
surprised if various models of the Amiga aren 't around for a long 
time to come; whereas the 8-bit machines will probably dwindle in 
importance and market share. A magazine like ours eventually has 
to either adapt to the changing situation, or go out of business. You 
migfitsay, "Well, why not start an Amiga version of Transactor, and 
keep the coverage separate?" Truth is, we 'd love to, and maybe we 
will some day Unfortunately that 's not a (financially) realistic 
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option right now and, until it is, we're going to have to make shift 
with the SO pages at our disposal. 

Don 't worry, though. We haven V forgotten our 64 and 12$ readers, 
and well keep bringing you good things. Besides, are you SURE you 
wouldn t like to own an Amiga? 

Ingratitude, publicly expressed: I am writing this letter in 
regard to the special issues of Transactor which you have been 
sending. These issues were started with Volume 1. Issue 2, and 
have continued to this day. Please don't misunderstand! Tm flat- 
tered by the trouble and expense you must go to in providing this 
unique edition. However, I believe that for the good of all your other 
readers, such expenses would be better made on increasing the 
number of excellent articles per issue (or, better yet, make The 
TVansaclor a monthly!) 

As it is conceivable that you are publishing other "special" issues for 
other readers, I will attempt to identify those 1 am receiving. Their 
most recc^nizable feature seems to be in the omission of an 
Editorial Schedule for upcoming issues. Although this may seem a 
minor issue to some, the knowledge of major topics that are 
"Coming soon to your local Transactor" allows me to savour the 
anticipation for months in advance. It also proves of some help in 
deciding if an idea for a program and article will match with any 
planned issue topics. So please, guys, start sending me the regular 
issues of Transactor and save the specials for someone else! 

Jack R. Farrah. Cincinnati, Ohio 

So this is the thanks we get! All right. Jack R. Farrah. you've realty 
got us steamed now! Anybody else out there want to get on the 
bandwagon? What about you, Milo Whistlebotlom? Are you going 
to start whining because we print your Transactor without page 
numbers? And fiow about you, Henrietta Sloop? You want the 
^toons like everybody else? 

Okay, people, you've got it. No more special treatment, no more 
special issues. From now on, everybody gets the same Transactor 
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no matter who they are. And just to moke sure you get the point. 

(We interrupt this tirade to bring you a special announcement: as of 
next issue, Transactor is abandoning the practice of publishing 
theme issues, so piease disregard the Editorial Schedules that have 
been appearing in ail copies of the magazine apart from (hose being 
sent to Jock R. forrah. Instead, we will be having one article (or a 
few) on a feature topic, with the balance drawn from the best other 
material we can lay our hands on. And unless we have a change of 
heart, that feature topic will NOT generally be announced far in 
advance, if at oil This new policy has come about mostly because 
we find ourselves delaying good articles issue after issue simply 
because they don 'I happen to fit the theme. And that isn Y fair to the 
authors, or to^you. So from now on, as a regular feature of 
Transactor, we will be omitting (he Editorial Schedule. Look for its 
absence in future issues!) 

Bang-bang floppy-copy; I just acquired a second 1 54 K Now I 
cannot find a fast copy program that does not bang the head on the 
destination drive (this includes Fast Hack'em 3.0, SuperKlt and 
QuickCopy). Why do programs that work fine with one drive 
become destructive with two drives? Have they just copied each 
other's code? Can you surest anything? I don't need sophisticated 
copying, Most of the time 1 duplicate my own or user group disks. 

Warren Poiians, Davidson, North Carolina 

As far as wc krtow there's no real solution to your problem, Warrenr 
The reason a copy program can avoid head-banging with a single 
drive is that H already knows where the drive head is when it starts 
writing to the destination disk. It knows that because the source disk 
was formatted, and the program was able to locate the head 
correctly according to the formatting information on the source disk. 
A destination disk in a second drive is an unknown quantity, 
however. Not only does the program not know where the head is at 
the outset of the copy, it does not hove any means of finding out 
apart from the usual one of moving the head for enough towards the 
rim of the disk to bang against the stop. A partial solution would be 
to install one of the soft spring stops that are available as aftermor- 
ket upgrades for the 1 54 1. The banging on your head won V stop, but 
the headache will. 

Further, since most of your duplicating is done with disks that are 
NOT copy-protected, it's quite possible that some of the public 
domain disk copiers would be the answer If you Ye transferring ^'file 
by file " to an already formatted disk, usually these programs won 't 
bang the head on the destination drive. 

Explaining the Drivelight Zone: The problem reported by Karl 
in the last issue (drive on his 8050 was misbehaving because of a 
neighbouring monitor) is really quite common, and is due to flux 
from the flyback transformer interfering with the drive signals, 
which are incredibly weak at the beginning of amplification. Investi- 
gation of the monitor in question will probably show 'crazing' of the 
ferrite material used as the flyback core, due to repeated thermal 
cycles. One of these microscopic cracks has probably now formed a 
significant breach in the magnetic integrity of the core, with a 
significant increment of flux leakage. 

Stated simply: (1) the TV signals screw up the drive, especially on 
the left side of the set, where virtually every TV manufacturer puts 
the flyback; and (2) prepare within a year or two at the outside to 
replace the flyback or the entire monitor. 

Anthony J. Goceliak, Jersey City, New Jersey 



Boat leaves Commodore stranded: Commodore missed the 
boat, again, with the new 1 Megabyte Amiga. The 68000 can run at 
1 2 MHz; so why 7. 13 MHz? Also, the 68020 can run at 1 4 MHz, 32 
bit. which is about 235% faster than a 16 bit/12 MHz 68OO0, and 
about four limes faster than Commodore's new Amiga, It is a shame 
to waste a megabyte of RAM on such slow speeds! 

John R, Menke, Mt. Vernon, Illinois 

Commodore isn't to blame for this one. John. While it's true that 
there is a 12 MHz (and more expensive) version of the 68000, and 
that the (much more expensive) 68020 can run faster still, the 
fundamental limitation in the 68000 micros is RAM speed, not 
processor speed. In fact, the Amiga gets you more speed for your 
money than other 68000 machines (like the 8 MHz Atari ST line) by 
running the 68000 on every second cycle of a 14 MHz clock, leaving 
the odd cycles free for use by the custom graphics and I/O chips. 



Bird, plane, or Commodore 64?: I am writing in regard to an 
advertisement in the May issue of Computer Shopper on page 270. 
Swisscomp Inc. is advertising a 4 MHz 16-bit expansion card for the 
C-64 called "Turbo 64", According to the ad. it will increase the 
speed of the C-64 by 400% . "plug into the expansion port of the 
C64", contains a '^16 Bit 65816 CPU with 64K of battery backed 
RAW, and "can address up to 16 MB of memory directly". The unit 
has a "special introductory price" of $189.95. Supposedly, they 
have a 1 MB expansion board under development. 

Have you or any of your readers had any type of encounter with this 
product? I stumbled on the ad by accident, and thought it might be 
of interest. Just think of the possibilities with direct access of 16 
megabytes of meipory! {Isn't that more than the Amiga can ad- 
dress?) 

Nolan Whitaker, Jeffersonville, Kentucky 

Yup, the Amigo^s stuck at a miserable 8.5 meg (9 on the new 
models). Of course, the Amiga has an Operating System that knows 
about that memory and can use it, which the 64 doesn't (unless 
Swisscomp is writing one, that is). Even so, it sounds tike a great 
board, and we'd love to hear from anyone who can tell us more 
about it. And the price isn t bad, either. 



Plus/4 Tech Info Source: In the July 1987 issue of Transactor 
(Volume 7, Issue 1). Jim Welch of Santa Clara, California, asked a 
question regarding the availability of schematic diagrams and other 
technical data for the Plus/ 4 computer- 
Publications regarding the Ptu5/4 are few and far between, but I 
have found two good reference books for this machine. These are: 

"Service Manual, Model PLUS 4 Computer", PN-314001-04. This 
is available from Commodore Direct Marketing, 1200 Wilson Ave- 
nue, West Chester, PA 19388. It costs $25 plus $3 S&H, The pinouts 
for the 6529 are given, but not the memory map. Complete 
schematics including the pinouts for all the external connectors are 
presented. 

"Programmer's Reference Guide for the Commodore PLUS/4" by 
Cyndie Merten and Sarah Meyer. Published by Scott Foresman in 
1986 (ISBN 0-673-18349-5), Order from local bookstore. This 
book has memory maps of the Plus/4, but no schematics or 
connector pinouts. 
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Anyone seeking to make serious use of the Plus/4 should strongly 
consider joining the Pius/4 SIC, Information regarding it can be 
obtained by writing: 

Mr. Calvin Demmon, The PLUS/4 Users Group, Box lOOi , Monte- 
rey, CA„ 93942. 

The group publishes a newsletter about eight times a year and has 
been instrumental in locating software suppliers for the Pius/4. The 
owners of orphan computers must stick together! 

I now have a question of my own, I am interested in writing ML 
software which I want to store in the RAM below the BASIC ROM in 
the PJus/4. I understand how the RAM/ROM bank switching is 
done using locations $FF3F and $FF3E and can successfully load 
and execute code in the higher sections of RAM. My problem is: 
"How can I use the MLM in the Plus/4 to examine my code?" Once 
the ROM is switched out, the MLM is gone, so that it cannot be used 
any longer, I have tried every trick I can think of to try to download 
the MLM into RAM so that it is available when the ROM is switched 
out. but to no avail. 1 suspect that I am doing somelhing wrong 
involving the I/O, but cannot figure out what it is. 

Lee A, Cross, Dayton. Ohio 

Thank^i for the help, Lee. It's nice to know that Plus/4 owners have 
somewhere to turn for information. 

According to the f 4 manual under the "TEDMON^' section, loca- 
tion S07F8 controls the memory source whicfi TEDMON reads 
above location $8000 (ie Wemory dump, 'D'isassemble, etc.). if 
S7F8 is set to $00, TEDMON will look at ROM; if set to $80, it wiil 
read tfie RAM underneath. 



Com munjca ting Braces: I hope you can help me, 1 have to 
transmit via modem ASCII codes 123 ($7B) and 125 ($70). These 
are the left and right curly brace characters respectively. 

1 am using a C-12S in C-64 mode to run Speedscript (v3,l}. This 
stores screen codes in PRO files. I have a utility which converts 
screen codes to Commodore ASCII My modem program in turn 
translates PETSCII lo ASCII. My question is: how can I generate the 
braces? What screen codes do I type to start with? 

Perhaps you have a simple answer, or a program which can 
selectively transmit the desired characters. I want to use a typeset- 
ting service which uses these characters as control codes for 
typesetting. 

Joseph Francis, Zephyrhills. Florida 

Most of the conversion from one set of character codes lo another is 
done by manipulating the ^'zone bits'^ - bits 5, 6 and 7 - of each 
character to be converted. It happens that the ASCII codes for curly 
braces lie in the zone that also contains the lower case alphabetic 
characters (in binary these codes have the form XOIIxxxxx). The 
Commodore screen codes for the lower case letters are in the range 
I to 26 (their codes have the form % OOOxxxxx). To get the ones you 
want, then, we can Just convert 123 and 125 to binary (XOIUWJi 
and 7o01lU10l respectively), alter the zone bits (we now get 
XOOOIWn and %00OIII0J). convert back lo decimal (27 and 
29). and find the characters corresponding to these screen codes, 
which happen to be the left and right square brackets on the C-64 
keyboard). 



The only problem is, that's the wrong answer. Any reasonable 
PETSCil to ASCII converter will take into account the fact the square 
brackets have wandered out of their correct zones, and those screen 
codes will eventually translate to ASCII $5B and $5D, not S 73 and 
$7D. 

This raises the interesting question of what happens to screen codes 
like 91 and 93 ($5B and $5D) which would, like the upper case 
characters, come out as the same values in ASCII (the number 65, 
for instance^ is both the screen code and the ASCII for upper cose 
'A'). Well, the screen codes in this range (actually $5B through $5f) 
are assigned to Commodore graphics characters that have no True 
ASCII counterpart, so it is likely that mo.sf PETSCII to ASCII 
converters simply leave them unchanged, including the one in your 
terminal program (tfie PETSCII codes do follow the screen code 
patterns rigorously apart from the zone bits). A really smart 
convener, though, might take the PETSCII codes (SDB through $DF) 
for these graphics characters and swap them into the range $78 
through$7E, which is what you want. If that were the cose, whichit 
probably isn't, the keyboard characters corresponding to the curly 
braces would be the shifted plus sign and shifted minus sign, 
respectively. Failing that, what you need is a terminal program that 
will send your characters untranslated: you would in this case do 
the conversion from PETSCil to ASCII (or directly from screen codes 
to ASCII) beforehand 

The most efficient way to write such a converter in BASIC is to use 
the table look-up method, in which you would hove an array with 
128 entries corresponding to the possible screen codes (assuming 
there are no reverse field characters in the Speedscript file - these 
use the screen code range from 128 to 255). each elemettl of which 
contains the corresponding ASCII value. Given such an array, which 
you might call tr$, you would do the translation with a little 
program tike this: 

10dimlr$(128):z$ = chr$(0) 

20 gosub 1 000: rem initialize the array 

30 open 2,8,0, " 0:ss-inpLJtflle,p,r " 

40 open 3,8,3, " O:asc-outputtfte,s,w " 

50 get#2,a$ 

60print#3,tr${asc(a$ + z$)); 

70 If St = goto 50 

80 close 3: close 2 

90 end 

This approach will also work if you choose to convert from PETSCII 
to ASCII instead of from screen codes to ASCII, only ycfu 'II need a 
larger array, as valid PETSCII values range up to 223. 



Getting Poor Quick: i don't know how many of yt^u folks got 
ideas about making '^mucho big bucks^' after you gained knowledge 
in writing machine language programs. We have heard or read 
about those who have made a fortune doing the same thing. No one 
writes about the many who failed. 

The dream to make the program that will put us on Easy Street has 
overwhelmed some of us. I have learned much since that dream 
came into my head. 1 had visions of retiring from my electronic 
service business, and spending my leisure time writing programs 
for profit. After losing some money in advertising, I decided to do 
some market research. Boy, il is a lough world out there! 
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One source told me that there are over five thousand software 
development companies cranking out software, not to mention all 
the individuals. One of the biggest entertainment software puh- 
Jlshers for Commodore, Apple, and Atari computers said that of the 
few programs they accept from many submissions, only one per 
cent does well in sales. 

My attention turned to marketing my own software, so 1 checked 
into advertising- 1 don't mean a little classified ad either (lost money 
on that idea once). One source told me that the average reader 
respoEise for advertising your wares in a computer magazine is from 
. I % to -5 % - Par less than the one to two per cent 1 imagined. 

Most of you pfubably write programs for other reasons, 1 did in the 
begiuEiing. 1 did not plan to make money at first. However, the more 
1 wrote programs, the more I thought about doing it for a living. 

Making a "big hif' is not impossible, but it is very tough indeed. 

John Augustine, Reading, Pennsylvania 



Another IEEE Interface for the C- 128; 1 am writing this letter 
in response to the inquiry about lEEE-488 interfaces for the C-128 
in the letters section of the March 19S7 issue. The Chemistry 
Department here recently acquired a Brain Boxes {25, Lynmoulh 
Road, Algbruth, Liverpool, England) IEEE-488 Interface for con- 
necting a C'12S to a spectrophotometer which uses the lEEE-488 
bus. The interface can also be used with the C-M and includes a 
superset of ''wedge"-type commands in ROM. At lime of purchase 
the cost of the interface was 77 pounds (including shipping and 
insurance). Brain Boxes accepts American Express, which simpli- 
fies currency exchange, 1 am enclosing further information, and 
hope this will be of benefit to your readers. 

Tim Ballard, University of North Carolina at Greensboro 

Thanks, Tim. From the info you included with your letter, tite Broin 
Boxes interface is going to interest a lot of people. Anyone looking to 
use fEEE equipment with their C-J28 or C-64 should check out the 
News BRK section in this issue for information from the Brain Boxes 
press release. 



been using mine for a year now on my BBS. and also call oul on it 
from time to time, I have seen ads for the Commodore 1600 from 
them at the same price, so inake sure they know which one you 
wani when youVe ordering, C.O,M,B,'s address is 14605 28th 
Avenue N, Minneapolis, Minnesota 55441-3397. They have a toll- 
frEM? line for U,S. residents at 1-800-328-0609. 

Rick Crone, Jackson, Tennessee 

Our apologies, but not owning o Quicksiloer interface makes if 
difficult to answer your questions, Rick We also do not own a single 
BusCard, and the fact that Batteries Included has all but joined the 
ranks of Info Magazine's R.I.P. column, you might find it difficult to 
get one. Electronic Arts has acquired rights to some of their prod- 
ucts, so it's possible they might have some information for you. 

On the other hand we do have some good news, however self- 
serving it may seem. The G-Link will make IEEE/serial transfers, 
and Richard Evers has modified Jim Butterfields "Copy-All ' to take 
advantage. It will appear on every Transactor Disk starting with 
number 19 for this issue. Up until about 6 weeks ago we thought 
ttiere would be no more G-Unks. The parts for them are quite 
common, but making the printed circuit boards is a fairly involved 
process. Then, while cleaning out the warehouse in preparation for 
our move from Milton to Richmond hill, we found about 200 more 
unpopulated G-Link boards. So, based on this discovery and the 
number of requests we 've had for them (not to mention the number 
of orders we've had to send back because we thought we didn't 
have any left), we've decided to continue offering them. See News 
BRK for more details. 



Super-C 3.0 Fix Available: I have jus! finished reading the 

March Transactor, and would like to make some comments con- 
cerning the articles (Ve read. The first comment I have is that there 
is a bug in Super-C 3.0 that has been fixed with the 3,02 version. 
The new version fixes the 'getc* problem when using an RS232 file - 
the old version would hang up the system when it got to the first 
^getc' for the file. PresenI owners may want to ask Abacus for details. 
Enclosed you will find a letter I got (from Germany!) that confirms 
the problem. 



More Quicksilver IEEE Info Wanted; 1 would like more infor- 
mation on the Quicksilver IEEE interlace described by John A, 
Spencer (Letters, Volume 7 issue 6). I have the 123 and an old MSD 
IEEE interface that works in 64 mode only. It requires a SYS call to 
get from IEEE to serial and another to get back. A friend here in 
Jackson has the BusCard (on his 64) and it seems to handle devices 
on both buses much more elegantly. How about the Quicksilver? 
Can it 'get^ from the IEEE and 'put^ to the serial transparently? Will 
the Quicksilver work in CP/M mode? Could I use my IEEE and 
serial devices both in CP/M mode? 

!n the same letters column, Doug Hurd of British Columbia was 
looking for informalion on sources for long cables and other unusual 
parts, plus an inexpensive modem. For the long cords, he might try 
Precision Peripherals and Software, RO. Box 20395, Portland, 
Oregon 97220, phone 503-254-7855, A source for other odd parts 
is Black Box Corp., RO, Box 12800, Pittsburg, Pennsylvania 15241. 
Their order number is 412-746-5530; their tech support line is 
412-746-5565. As for a modem, Doug might wanllo check out the 
Total Telecommunications auto-answer, auto-dial modem from 
C.O,M.B. for $19,00. If he can live with 300 baud it is great, I have 



The brand-new version of Pocket Writer 2,0 has a funny bug in it. If 
you boot the disk from a cold start, i.e, put the disk in the drive and 
turn the computer on, the disk will make horrible sounds! However, 
if the disk is booled from a warm start, i.e. press the reset button, the 
disk doesn't knock any more. By the way, the new features of 
Pocket Writer 2.0 are great - includiEig mouse support, RAM disk, 
and spelling checker, 

Mark Bonne ma. South Holland, Illinois 

Mark certainly can't complain about the response he got on his 
Super-C question. The ^ 'tetter from Germany ' ' he received was from 
Franz Hauck. one of the two authors of the compiler, hfauck not 
only confirmed the RS232 bug, but also went oul of his way to 
correct a couple of minor errors in the C source code Mark sent him, 
and returned Mark's disk with the corrected code. Now that\s 
customer servicel 
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TeleColumn 



Transactor Area on CompuServe 

Almost 2 megabyte?^ of Transactor articles have now been prepared for 
uploading to CompuServe. Yes. this means that the much touted 
Display Area is sill! not operational, but man what a job! We hguje 
there^s about 3 more megabytes of text to go before almost every 
Transactor article ever printed since Volume 4 Issue 01 will be available 
online. 

Some of the articles were not going to be uploaded due to diagrams. But 
many of them have been "hand- translated" to low-res replicas. They 
may not be as good as the printed versions, but they get the point across 
enough thai the article didn't have to be excluded. 

Also in the uploading queue is The Transactor Writer^s Guide. 

The Transactor Data Library currently has every program ever pub- 
lished from Volume 4 Issue 1 to Volume 5 Issue 06. As mentioned last 
issue, we wanted to get the programs up first so the articles could refer 
to them by name. There's about 1 2 disks to go and we average about 1 
per night. After this issue is done we'll resume the uploading activity 
and with any luck we'll have our entire history for the past 5 years 
available online by next issue (tongue firmly between teeth). 

New Rates on CompuServe 

From April 1 to May 30, 1 987, CompuServe announced that their prime 
time charges would be the same as their non-prime or night time 
charges. Now, however, CompuServe has decided to make the daytime 
rate reduction permanent. 300/450 BPS is new $6.00 per hour and 
1200 BPS is $12.50 per hour. 2400 BPS rates are the same as 1200. 
TeleColumn suspects now that daytime rales have been reduced, the 
nightly charges will also come down, at least for 1 200 BPS if not 300/ 
450. Watch this spot next issue. 

Time Saving Tips 

On CompuServe, as on any online service, time is money. Here are a 
couple tips that may save you a little or a lot. 

Even at 300 BPS it's possible for CompuServe to send you messages 
faster than you can read them. Agreed, many can read faster than 30 
characters per second, but messages are not always grammatically 
perfect. So you might stop to read a sentence or paragraph twice, but 
the system just keeps sending. Even i! you stop the flow with a Control 
A, the clock keeps tickhig. One alternative is to capture the messages 
and read them off line. 

If your terminal program has capture buffer capabilities, sign on and 
open the buffer at the main "Function:" prompt. Enter RTN (Read 
Threads New to you), RF (Read forward), or whatever you use most 
Following the first message (which will now be in your capture buffer) 
you'll get the '^Read Action^^ prompt. Enter NS at this point for "No 
Stop". Messages will be captured non-stop from where you start 
through to the last, or until your buffer is full, whichever comes first 
Now save the buffer to disk and use your favourite file reader, text 
editor, or word processor to read the messages at your convenience. 

To reply to a message off line, use your word processor and enter "RE" 
followed by the message number you want to reply to. Type the rest of 
your reply making sure there is a carriage return after every 80 



characters (I usually type the whole message and put the CRs in later). 
Now load your capture buffer with the reply. Sign on, navigate to the 
main "Function:" prompt, and dump the buffer contents. "RE 7500" 
means REpIy to message 7500. At this point CompuServe usually prints 
"Enter You Message", but your terminal program won^t wait for it. The 
text will just continue pumping into the system, but that's ok. When 
done, use CTRL Z or /EX, depending which editor you have selected. 
"/EX" is for exiling the FILGE editor and could be included as part of 
your off tine composition if you like, followed by "S" for "Send" on the 
next line. You may want to use PREview before Send the first few times 
to be sure you have it right. 

Once you have a little practice, all your replies can be capture dumped 
at full bore. You only need be sure that each reply is separated by the 
correct commands. The number of replies you can pump in non-stop 
has not been tested, but 3 or 4 shouldn't be a problem. 

If this technique becomes routine for you, consider 1 200 baud. It's twice 
as much as 300/450, but it's four times faster and potentially less 
expensive for uploading off line replies. 

RLE Notes 

Two issues ago, Christopher Dunn explained the concept of RLE (Run 
Length Encoded) files; a method lor displaying high resolution pictures 
on CompuServe. Chris is also the author of two conversion programs - 
RLE2HR converts RLE files to high-res files for the 64, and HR2RLE 
converts hfgh-res information at $2000 in the 64 to RLE format so it can 
be uploaded to CompuServe, The programs were supposed to be on 
Transactor Disk ^\7, but didn^t quite make it. Both programs and the 
documentation files to go with them are now on Transactor Disk *I8 
AND*17. Our apologies for any inconvenience. 

The article explained everything about RLE files, but one point may 
have been left unclear. RLEs begin with ESC GH. The "GH" stands (or 
"Graphics Hires". In hex, the values are SIB for ESC, and $47, $48 for 
GH. These are the true ASCII values for G and H, but in PETSCIl the 
values for capital G and H are quite different, which may have lead 
some to generate the wrong values in the RLE 3 byte header. 

To summarize again briefly, the header is followed by bytes that are 
always in the range from decimal 32 to 1 27. These represent pairs of on 
and off pixels in the screen area which is 256 pixels across by 193 
down. Decimal 32 is added to each byte to keep it in the range away 
from Control type characters. Therefore, following the 3 byte header, 
the sequence of decimal -30, 52, 78, 35, 127. 32, 55, 70, would mean 8 
pixels on, 20 off, 46 on. 3 off, 95 on, off, 23 on, 38 off. 

Theoretically, you would continue the pairs until all 256x 192 (49152) 
pixels are defined. However, if a lot of pixels near the end were all off, 
the file end marker could be thrown in early. This is ESC ON for 
"Graphic Normal". In hex, the values are SIB, $47, and $4E. 

Letters to TeleColumn 

F.J, Warner of Vancouver, BC, wonders why there has been no mention 
of "The Punter Network" in TeleColumn. Actually, we've been wonder- 
ing why wc haven't received just such an article. Much of the material 
we get is on topics well past the "worn out" stage. An article on 
PunterNet would really catch our attention (hini, hint). 
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Mouse Driven Menus 

Anthony Bryant, Winnipeg, Manitoba 



a hires Menu System for the C-64 and C~1350 mouse. . 



X>e5k 



-■■^ 







>. 



ui ew o ptions 

Show Inf o . , - 

Kew Fo 1 der . . 
Close Fo ider 
Close Window 



meh 



\ 



>TiMe 

current tine is 2 : IT PH 
>dir 

Kllfrs PRG 9 8LKS 

MIEMPDRTS PPG 4 Bl_KS 
POWrR WINDOWS PRO 25 BL KS 

MEtlDS,Bfl£ PRG 23 BLKS 

4 f i les 371 blks free 



:r=^ 




D esk Tile ^^ 1 1 » Options 



^^ 






V. 



V 



v. 



altzul t^ior 



7.50 



lil!^ 1CJ Lii t=J Q 

Ltilj £1 k^ ^ □ 

LtH U H l£j E 

UJa UJ R t» e 





Two sample screens showing off ^Menus', 'Hires', and 'Viewports'. 
The little dock is updated every minute with simple multi-tasking in BASiC, 



Pull-do^vn Menus 

The newest Microsoft BASlCs (such as Amiga Basic) have built-in 
commands to create and manage a pull-down Menu System. If 
you've never used pull-down menus, you might not appreciate 
their advantage in offering botti the ability to browse througti a list 
of menu commands and the ability to execute them, all in one 
visually-oriented package. At the same time, the 'look" of the menu 
is open, allowing creative design. The welcome introduction of the 
C-1350 mouse prompted me lo work out this concept on theC-64. 

Two new commands, MENUS and MOUSE presented here, manage 
a system of menus on the hires screen. If you wish, some or all of 
your menu names or items can be graphic images (pictures, icons, 
glyphs) instead of text. The Menu System holds a maximum of 56 
items and 7 menu names in the menu bar. 

MENUS is designed to co-exist with 'HIRES' and 'VIEWPORTS' (see 
the Transactor Vol.5 lss.6 and Vol.7 !ss.2) drawing on the same hires 
screen (at SEOOO) but is self-contained (u,ses no routines from either) 
so that, if the user selects a menu, any drawing on the hires screen 
is frozen, while the Menu System goes into action, and unfrozen 
continuing drawing where it left off. Menu names and items can be 
disabled (dimmed or ghosted) or items can be marked (with a 
checkmark). An alternate command-key sequence to access menu 
items is also supported. 

MOUSE sets up a sprite cursor, and manages menu selection as a 
background task (interrupt driven). MOUSE requires the use of the 
defacto Microsoft/Amiga standard left and right butlons. (See A Two 



Button Mouse' Transactor Vol. Iss,) The left button is called the 
'Select* button and the right button is the 'Menu' button. To activate 
the Menu System, the user presses the menu button (moving the 
mouse cursor over a menu name within the menu bar) and while 
still keeping it pressed, moves the mouse cursor in the list of menu 
items that appear below the menu name. To select an item, release 
the menu button while over a highlighted item. The selected item 
will flash, reinforcing the selection. If the user wishes not to select 
anything, he simply mouses outof the menu box. It's all , , .well. , . 
intuitive. 

'MENUS,BAS* is a BASIC loader that, when run will create a 
program file called 'MENUS* on your disk. (Make it the same disk 
that holds 'HIRES' and 'VIEWPORTS'), 

'MENUS DEMO' is a Basic program that demonstrates the new 
commands and encourages user experimentation. 

The syntax of the two new commands is quite varied, but first let's 
look at some definitions for the Menu System . 

Graphic Forms 

The hires screen is object-oriented. That is. it doesn't know text 
from images - only bitmap objects. MENUS recognizes three differ- 
ent types of graphic forms. All of the menu names and items use 
string variables (because its the most compact method of storing a 
sequence of bytes). In order to differentiate the 3 graphic forms, an 
extra variable, XR is used with a menu name$ or item$. 
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Figure 1 

FIGURE 1 shows the 3 recognized graphic forms, with Us corres- 
ponding XR value. The Menu System routine that puts 8 consecu- 
tive bytes (that make up a 'cell") on the hires screen, doesn't care 
where the bytes come from. If it's working with ^text$\ the routine 
has to take the extra step of looking up a table (the character ROM) 
to get the S consecutive bytes, but if it's 'image$-l' the 8 bytes are 
plotted directly in each cell before going on to the next cell. The 
only difference in 'image$"2' is the automatic wrap-around to fill 2 
rows. Because strings can only hold 255 bytes {in C-64 Basic), 
'texts' is limited to 255 ceils (in practice less than 40 cells - the 
width of the hires screen), 'imageS-l' is limited to less than 32 cells 
in width, and 'image$-2^ is limited to less than 16 cells in width (but 
2 rowsl. 



Offset Columns 

In the extra variable, XR, it's the two most significant bits, bit? and 
bite, that determine which it is of the 3 graphic forms. The 
remainder of the bits in XR can be used to move the column position 
(offset from the left edge). These bits are collectively called OC and if 
omitted the Menu System handles positioning automatically. OC 
allows menu names to be spread evenly across the menu bar (or 
bunched up - your choice), it also allows grouping of 'image$-2' 
menu items in a menu box- 
Key Codes 

Alternately, the remainder of the bits in byte XR, (bltS-bitO), can be 
used to store an appropriate command-key sequence code- These 
bits are collectively called KC, and are the keycode values found in 

location $C5. For example A = 10, Q = 62, P = 4L (The Inner Space 
Anthology' does not list these codes, but COMPUTE! has published 
them several times and Raelo Collin West's PROGRAMMING THE 
64 has a nice table of keycodes on page 161). Once added to the 
menu item (where together with a stylized Commodore logo Ihey 
are printed in the menu box) the user can make menu selections 
with the keyboard instead of the mouse by pressing Commodore- 
key and that key, together. 

Menu Types 

There are instances where you would want to have menu items 
selected, but not acted upon. All that happens is a checkmark is 
placed next to that item. And there are occasions where you would 
want to disable (keep from being selected} certain items or even 
menu names. A disabled item or name is dimmed (faint or ghosted) 
- still readable but less distinct. A value of (0-2) for MT determines 
this. Enabling or disabling a menu name or item before or during 
your program is an easy procedure. 
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Figure 2 

Figure 2 shows just some of the different menus that can be created 
on the hires screen. Not all of the features need be used. The choice 
is up to the programmer in the design of the look' of his menu and 
in the requirements of the application. But the Menu Sytem has a 
number of default conditions, that speed up building a menu. L^t's 
look at the syntax and those defaults now. 

A LA CARTE (, . .the main course. . .) 

The commands are listed in the order in which they would normally 
appear in an application program. 

To initialize the system . . . 

1000 SYS MENUS CLR [,BG,FG] 
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where: BG is menu background color (0-15) 
FG is menu foreground color (0-15) 

dears out any previous menu lis!s, and initializes the system, with 
optional color parameters. 

Next, comes a series of names and items to fill the menu list- 



where; 



MN is menu number (1-7) 

Ml is menu item (0-8) 
MT is menu type (0-2) 

(mutually exclusive) 
MT = for disabled (dimmed) 
MT = 1 for enabled (normal) 
MT = 2 for marked (checkmark) 



Submit a fist of menu names and items in any order. 



types: 



To add a menu name. , , 



where: 



(Ml=0) 



1 100 SYS fvlENUS.MN, 0,MT,name$ [.XR] 

XR= OR OC for texts 
XR = 1 28 OR 00 for image$-1 
XR = 1 92 OR 00 for image$-2 



'OR' is the logic OR, effectivety adding the OC bits to XR. 00 is 
the offset column position relative to the left edge and can 
have a value of (1-40). The default for XR is (textS and no 
special offset column). 

To add a menu item . . . 



1200SYSM£NUS,MN,Ml,MT,item$[,XR] 



where: 



(fyllOO) 



XR= OR KG for texts 
XR= 1 28 OR KG for image$-1 
XR = 1 92 OR 00 for image$-2 



'OR' is the logic OR, effectively adding the KG bits to XR, KG is the 
key code. You can't have a KG with image$-2 form, since an OC is 
needed if image$-2 forms are to be grouped- The default for XR is 
(text$ and no key code). 

To display the menu bar - . . 



where: 



1300 SYS MENUS ON [,BG,FG] 

BG is menu background color (0-15) 
FG is menu foreground color (0-15) 



the hires screen area under the menu bar is saved before the menu 
bar is printed. 

To change menu type . . . 

1400 SYS MENUS,MN,M1,MT 

within the course of a program 



To remove the menu bar . . , 

1500SYS MENUS [OFF] 

the hires screen area uEider the menu bar is restored. 

Menu Selection Messages 

When a menu item Is selected, either by the mouse or alternate 
command-key sequence, the appropriate menu number and menu 
item number are placed in locations (MNUM) and (MITM), respec- 
tively, where they can be PEEKed at within the main loop of an 
application program, (MNUMj^O means no menu or menu is 
disabled and (M1TM)= means no item or item is disabled. Location 
(MFLG) can be PEEKed if your program needs to know if the menu 
bar is displayed. (fvlFLG) = means no menu bar. See the MENUS 
DEMO program for examples. 

Designing Menu Text and Images 

The Menu System automatically lays out the menu box (every time 
it^s activaled) according to the lists submitted, and according to 
some general design rules. For example, it places (if MT = 2 for that 
menu item) the checkmark in the first column of the item row, so 
you must allow for a space at the bei^inning of your texl$ or image$- 
l if you use the checkmark, image $-2 form requires an OC value for 
Its placement and the checkmark (if used) is placed to its left. 
Incremental OC values allow image$'-2 forms lo be grouped along 
the same row. For texlS the default case is the lowercase ROM set. To 
switch to the graphic ROM set, concatlext$ to CHR$(141).CHR$(14j 

reverts to lowercase. You can make use of the graphic ROM set in a 
texts lor divider lines, or even crude graphics. Use the MENUS 
DEMO program to experiment! 

Designing Images is made relatively straight lorward using a good 
font editor. 1 used Charles Brannon's excellent ULTRAF0NT + 
because it readily outputs the DATA statements (which you can then 
use to build a string). Just clear out sufficient cells and treat it like a 
bit-map editor (you can use the mouse). image$-l (1 row form) can 
be used to depict different fonts, for example. imageS-2 (2 row form) 
can be used for a larger bit-map area. The cell width of your image 
designs will determine the general layout of the menu box. The 
MENUS DEMO program contains a tew examples. 

MOUSE GLACE (, , ,and for dessert . .) 

The MOUSE command sets up the interrupt driver routine, which 
polls the mouse position, moves the sprite, monitors the left and 
right buttons and handles all the details of displaying menus. 

Let's look at the variety of syntax. 

To change the cursor . . , 

2000 SYS MOUSE, cursors 

allows the design of a new cursor shape (See 'Designing a Cursor* 

below,) 

2000 SYS I^OUSE,0 

sets the cursor to transparent 
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2000 SYS MOUSE J 
sets the cursor to !he built-in arrow shape 

2000 SYS MOUSE, 2 
sets the cursor lo (he buili-in cross shape 
To show the mouse , . , 

21 00 SYS MOUSE ON [.COLOR] 

activates the mouse interrupt driver with optional color parameter 
(0-1 5J. , 

To hide the mouse . . . 

2200 SYS MOUSE [OFF] 

removes the mouse interrupt driver. Use to turn the sprite off, in 
order to access serial devices (disk, printer, etc). 

Mouse Messages (Mouse Droppings?!) 

While the mouse is ON, it continually updates several locations 
which an application program can PEEK. Location (MB)=0 if no 
button was pfessed,(MB)= 1 if right button was pressed,(MB}=255 
if left button was pressed. Locations (MX] and (MY) can be PEEKed 
to get the pixel positions for 'HIRES' lo use to draw on the screen. 
Location (MX+ 1) is the x-high bit. Location (MY+ 1) is equal to 
199-MY for use in a non-Cartesian system. The MENUS DEMO 
shows more on this. 

Designing a Cursor 

Since the cursor is a sprite (spriteO in fact), you caii use your 
favourite sprite editor to design with. 1 used Charles Brannon's 
SPRITE MAGIC editor, because it generates DATA slatementa 
(which can then be built into a strir^g). The file "ARROW.SPR" on the 
distribution disk, contains the data for the built-in arrow sprite, 
which you caEi load into a sprite editor lo use as a template tor your 
own design. Of particular importance is the hot-spol position (tip of 
the arrow). 



About MENUS DEMO program 

This program, after building the menus, just executes a running 
loop, polling the menu and mouse variable locations. It just prints 
the selected (by mouse or alt-command -key- sequence) menu and 
item numbers on the old text screen. Experiment with this program. 
Exchange menu names and items, move graphic images about 
using various OC values. Change KC values. Figure 2 shows some of 
the configurations possible. Change the action of, say, the right 
menu button, so it toggles the menu bar on/off. Try the random SYS 
DRAW and note what effect going to the menu has. 



It doesn't take long to get used to creating and using pull-down 
MENUS, and before long you'll find yourself with a desire to change 
some design criteria of the Menu System. (Everybody's a critic). 



Inside IVIouse Driven IVIenus: Some Technical Notes 

Assembling the Components 

The PAL source code is quite long, but is basically a library full of 
small modules, software components. Ihat when assembled work 
as a system. You can't do Menus without doing Windows and you 
can't do Windows without doing Viewports. Modularizing all these 
routines was the only way to go (to remain sane). The modules (refer 
to the PAL source file) are arranged in the following catagories; 

(Editor's Note: Anthony's source is a whopping 1000 lines! It 
couldn't possibly be printed here - refer to Transactor Disk "19.) 

L Menu support routines 4. Plotting routines 

2. Window routines 5. Mouse support routines 

3. Viewport routines 6. Sprite routines 

'HIRES' operates in Bank 3, using the hires screen at BMAPl = 

$EOO0 and color memory at CMEMI = $CCOO. So does 'MENUS'. 
1 . Menu support routines 

A menu is mostly lists' - lists of names and items and types. String 
variables were chosen to store these 'lists' because it's the most 
compact method of storing a sequence of bytes. The Menu System 
recognizes three different 'graphic forms' (determined by an extra 
byte, XR, following the string). 



form 


XR 


texr$ 


OOxxxxxx 


image$-l 


1 Oxxxxxx 


image$-2 


1 1 xxxxxx 



Since each string can be totally defined with just Ihree bytes (lenglh 
and low byte/high byte pointers to the start of the string) only four 
bytes are needed to define each menu nameS and menu ilemS, To 
hold 56 ilem$ and 7 name$ requires just 252 byles i.e a page of 
memory - called MLIST The routines SETLIST and GETLiST store 
and retrieve the four bytes to/from respective 'slots* in the page of 
MLIST, As a consequence, menu names and items may be submit- 
ted to the menu list in any order with the SETMTOP routine keeping 
track of the maximum no. of menu names and items in each menu. 

Also, an area of memory is set aside for the MENU DATA STRUC- 
TURES. MTOP holds the max- no. of menu names ("MN = 0) and 
items in each menu, MNLC, MNTR, MNWD and MNDP hold the 
dimensions of the menu bar (*MN = 0) and each menu box. "MT 
defines an item's type as disabled (dimmed), enabled (norma!) or 
marked (checkmark). SETTYPE and GETTYPE store and retrieve 
MTYP, which for each item is stored in MDIM and MCHK (for 
*MN^O the type of each menu name - disabled or enabled - is 
stored in MDIM). The MDIM or MCHK byte holds the type for 8 
items (one bit in the byte for each item). 
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Figure A shows the dimension variables for the Menu System, 
MNLC and MNTR (*[VlN-0) determine the lop-left corner of the 
Menu Bar when it's attached to the hires screen, MNWD determines 
the width. These three variables are preset, but could be altered to 
suit. 
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Figure B: General Menu Bar Layout 

Figure B shows the positioning of menu names by OC, the offset 
column. 

D MENUSTZ routine just alters MNDP, the depth of the menu bar to 
accommodate 1mage$-2' graphic forms. 

D MENUBAR prints the menu bar on the hires screen and handles 
automatic column positioning if no specific position is given. 

D MENUSEL is called by the mouse driver (by MENUBTN) when^ 
ever the menu button is pressed. It checks if the mouse is within the 
menubar area - if not returns with carry set - then scans each menu 
name for horizontal position, to check if the mouse is within a menu 
name's 'area of influence' {determined by the lenglh of the name$). 
You can fool MENUSEL by subntilting menu names with wrong 
order column positions -it just ignores the out of order name! 
MENUSEL highlights the menu name and returns to the mouse 
driver. 
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Figure C: General Menu Box Layout 

D MENUBOX is also called by the mouse driver (by MENUDOWN). 
It's job is to look al the SELected menu's items to determine the 
dimensions of the menu box, (You can change the lisl of items or re- 
submit new ones between accessing the Menu System), It goes 
through the list of items keeping Irack of each items' length (and 
group 'image$-2' total length) and stores the dimensions in the 
MENU DATA STRUCTURE. The GETLIST routine is invaluable (in 
this and the MENUPLT routine) in simplifying this job, GETLEN 
always presents the correct cell length to enable placement and 
sizing. Thus the menu box is automatically sized. 

a MENUDOWN {called by the mouse driver) lays down the menu 
box over an area of the hires screen. 



D MENUPLT does the actual plotting of 'forms' in the menu box, 
taking into account, positioning, grouping (of 'image$-2' forms) and 
alternate command-key special imagery- 

n MENUKEY is called by the mouse driver if the Commodore key* 
is pressed. The keycodes (if any) in the menu list are scanned 
starting at *MN = 1 and the first match is noted by storing the 
current menu number and menu item number in (MNUM) and 
(MITM). respectively. 

n MENUAWAY is the clean-up routine (opposite to MENUDOWN) 
which swaps back the area of the hires screen hidden by the menu 
box and un- high lights the menu name, 

D MENUCTRL is the main routine that handles item selection with 
the mouse. It is basically two loops. The first locates the form to 
which the mouse cursor is pointing and if within the items 'area of 
influence' highlights it. The second checks to see if the mouse leaves 
the items 'area of influence' and un-highlighls it, returning to the 
first loop. Again, the GETLIST routine simplifies the differentiation 
of the three graphic forms. Both loops call CHECKBOX to make sure 
the mouse is still within the menu box. CHECKBOX incorporates a 
DELAY in the speed of the mouse of 16ms. to malch the normal 
(outside the menu box) speed. If the DELAY is reduced to say, 8ms. 
themousemovestwiceasfast inlhemenubox. Releasing the menu 
button over a highlighted item causes the item to FLASH, The 
current menu number and menu item number are stored in 
(MNUM) and (MITM). respeclivcly, 

2. Window Routines 

Both the menu bar and menu box require windowing - thai is. the 

area of the hires screen, hidden by the Menu System must be saved 
and later, restored. The Menu System uses a 'save' buffer area for 
the hires bitmap from $9000 to SAGOO (BMAPO) that is, 1/2 of a 
tiires screen, A corresponding color memory save area at $8E00 
(CMEMO) is also needed, so that the Menu System has its own 
distinchve colors. The bytes are 'packed' into the buffer areas on a 
last-in first out basis - a buffer pointer, "BPTR'\ keeps track of this. 

n OPENWNDW sets up a viewport and does the swap. 

D CLOSWNDW is shorter and simply swaps back. 

The buffer pointer routine GETBP points to the bitmap save area. 
GETCBP computes the equivalent pointer into the color memory 
save area. 

3, Viewport Routines 

The work horse of windowing is a series of routines which manipu- 
Bate a byte-aligned viewport (rectangular region of the hires screen). 

D VIEWPORT gets the MliNU DATA (dimensions) into zero page 
variables, LC,TR,WD and DP for faster execution. 

n VADDR gets the start byte of the hires bitmap (top-left corner of 
the rectangular region). 

D VCPOSN positions the color memory pointers to the start of the 
viewport, 

D VCOCMEM pre-colors the save area so.. 

D VSWCMEM just swaps the save area color memory with ibe on- 
screen color memory. 
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n VWiPE pre-ciears the save area so .. 

D VXFER just exchanges Ihe hires save area wilh the on-screen 
hires bitmap. 

All of the viewport routines use byte boundaries {because color 
memory is aligned to them, absolutely) to speed up viewport 
transformations. 

D VROW handles one row (8 bytes) over Ihe viewport width, WD. 

D VBORDER draws a one pixel border around the current viewport 
(only used by menu box) as a series of bytes, so is much faster than a 
general line drawing algorithm. 

D VBTOP draws the top line for a viewport (not used) 
D VBLIN draws any horizontal line. 

4. Plotting Routines 

The menu routines used the general PLTFORM routines. Now it's 
time to get specific! 

n PLTFORM sorts out the three graphic forms, rect^nized by the 
Menu System. 

D PLTTEXT handles 'texf$' as a series of bytes to be translated by 
EXCHAR into an 8 byte 'cell'. 

D PLTIMGI plots the one-row image directly, bypassing EXCHAR 
'texts' table look-up. 

D PLTIMG2 plots Ihe two-row image one row at a lime, by saving 
column positions and re-positioning as needed. 

P PLTMARK plots the checkmark imagery, 

D PLTALTK first finds the right edge of the viewport, moves left, 

then plots the Commodore-logo imagery and the uppercase alter- 
nate key. 

The EXCHAR routine maintains pointers to the bitmap through the 
use of some 'crsr' routines, which are tempered by the viewport (i.e. 
knows the edges of the viewport, so can't plot outside the viewport). 
The PUTBYTS routine actually puts the bytes (pointed to by $A9/ 
$AA) on the hires screen. If the DIMFlag is set then the plotting is 
'dimmed^ by logic ANDing the bytes with the DIM bits mask. 

5, Mouse Support Routines 

These routines manage the cursor and set up the interrupt driver, 

MOUSE requires the use of the defacto Microsoft/Amiga standard 

left and right buttons. The left button is called the 'Select^ button and 

the right button is the ^Menu' button. (See A Two Button Mouse' 

Transactor Vol, 7 Iss. 06, Pg.36 for details). To activate the Menu 

System, the user presses the menu button (moving the mouse 

cursor over a menu name within the menu bar) and while still 

keeping it pressed, moves the mouse cursor in the list of menu items 

that appear in the menu box, below the menu name. Release the 

menu button while over a highlighted item to select, or move out of 
the menu box to cancel. 

SETTRANS, SETARROW and SETCROSS enable the built-in default 
cursors. Note that since the sprite area is pre-cleared, only the most 
significant bytes need be submitted in ■cursor$'. 

D MOUSESTR sets the bytes found in ■cursor$' into the sprite 



definition area - SLOTL [Note ^HIRES' operates in Bank 3]. There 
are two more SLOTs available, but unused: SL0T2 = $FF80 (*'2S'1) 
andSL0T3 = $FFCO(*255), 

D MOUSEPTR sets the sprite pointer to SLOTl (*253). 

O MOUSEOFP puts back the old IRQ routine and turns off Ihe 
sprite. 

D MOUSEON sets up the new IRQ routine and turns the sprite on, 

D MOUSECOL sets the sprite color, 

P MSDIRQ is tlie new mouse driver, which moves the sprite, 
handles tlie mouse buttons and checks for optional alternate key 
codes (if implemented). This new IRQ routine is added to the 
existing old IRQ routine, so the mouse is updated every 16ms 
(which is fast enough to simulate smooth motion). It is also possible 
for the enterprising programmer to mix polled interrupts with true 
interrupts and CIA *■! allows the frequency of interrupts to be 
changed. 

MSEVENT checks the mouse buttons and if pressed, branches to.. 

D SELECT if left button pressed (currently no action taken}, or. 

D MENUBTN for the right button. [Note that it's possible to make 
the left button Ihe menu button by slight changes to MSEVENT and 
SELECT and RDMOUSE -(change line 1832 LDA *$00 . , .iiogic 
low to LDA "$20 , . .;a logic high always)]. 

The mouse button status, MB, is polled every interrupt. Only if the 
Menu System is activated is MB consumed (set to 0), otherwise it^s 
status reflects real time. 

More of the system stack is used by the new mouse driver. 1 6 bytes 
more if the Menu System is activated. Normally, this won't bother 
Basic, unless you are a EOR/NEXT or GOSUB junkie. 

The mouse "position" is converted to equivalent "cells' - columns & 
rows - by MCMXY, to speed up and ease the item selection process. 

6. Sprite Routines 

The sprite with the highest priority, spriteO, is commandeered for 
the job of cursor 

D RDMOUSE is the main routine that updates the mouse in Control 
Port 2, position {MX,MY) and button status (MB), [Note that location 
(MYI) holds 199-MY for use with non-Cartesian coordinates if 
need], 

□ RMPOSOY positions the spriteO-y register below the menu bar 
(i.e into the menu box). 

D RMSPRTO initializes spriteO hires mode, coordinates (if needed), 
priority and display enable. 

D RMSCOLO just stores the color parameter, 

D RMBTNS tests the status of tiie buttons and sets the Z-flag. 



There, then, is my own subjective interpretation of a Menu System. 
I now possess much greater understanding of and compassion for 
other menu systems and their designers (the Amiga comes to mind) 
but using this source code you might want to make changes in the 
design criteria! (Go ahead, make my day!) 
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EH 
PC 
CN 
JN 
AA 
FM 
EB 
PO 
LA 
EF 
MF 
BC 
LC 
KF 
NG 
KJ 
PI 
BK 
BH 
GD 
MN 
DH 
IH 
CI 
MM 
BJ 
II 

LJ 
AC 
AB 

CM 

FN 

GJ 

EL 

FH 

OE 

HN 

LF 

AO 

01 

EN 

EP 

CF 

AM 

DO 

EA 

MC 

PO 

HB 

BM 

DD 

GA 

PC 

LN 

OP 

OH 

AN 

JP 

HJ 

HB 



Menus Demo Program 

1 00 rem save " 0:menus demo " ,8 

1 10 rem 'hires menus demonstration 

1 20 if peek(491 53)<>1 94 then load " hires ' A 1 

1 30 if peek(32769K> 97 then load " menus ' ,8, 1 

140: 

150 poke52,128:poke56,12Sxir:rem reserve memory 

160: 

1 70 rem 'hires' variables 

180hires = 49152:draw-hj + 3:p!ot = dr-f3 

190mve = pl + 3;clscr = mv + 3:dmode = cl + 3 

200se]pc = dm + 3:colour = se + 3:box = co + 3 

210text=bo + 3:pmt = te + 3:chsel = pr + 3 

220 trap = ch 4- 3 

230: 

240 rem 'menus' variables 

250 menus = 32768 

251 mnum = me4-3 
252mitm = mn + 3 
253mflg = mn + 2 
254mouse = mi + 3 
255mb = mo + 3 

256mx = mb + 3:my = mx + 3 

260: 

270: 

280 rem user demo - experiment with it 

285: 

290 rem c-1 350 mouse in control port 2 

295: 

300syshires,0,3.0;poke53280,14 

31 0tt$=^' Workbench VersioniO 307i7bytes 

free' 
320sysprnt,0,0.chr$(14) + tt$ 

325 sys prnt,12,10, "Working " 

330 gosubl 000 'build the strings 

335 sys prntJ2,10, " [13 spcs] " 

340 sys menus clr:rem olear menu lists 

350 sys mouse,! :rem set arrow cursor 

355: 

360 rem build the menus 

370sysmenus,1,0,1/' File M 
371 sys menus, 1,1,1," Open" 
372sysmenus,1,2,1/ Show Info. . .' 

373 sys menusj ,3,0, " " 

374sysmenus,1,4,1, 
375sysmenus,1,5,1, 
376 sys menus, 1,6,1, 
377sysmenus,1,7,0, 
378sysmenus,1,8,1, 
379: 

380sysmenus,2A1, 

381 sys menus,2,l,1, edits, 192or1 

382sysmenus,2,2,1,type$, 192or5 

383 sys menus,2,3,1, pens, 192or1 

384 sys menus,2, 4,1, erases, 192or5 
365sysmenus,2,5,1,ffll$, 192or1 
3a6sysmenus,2,6,1,oubeS, 192or5 
387sysmenus,2,7,1,spray$,192or1 

388sysmenus,2.S,1,actnS, 192or5 
389: 

390sysmenus,3,0,1,faunts$,128or15 
391 EyEmenus,3,1,1, " Plain\41 



New Folder. . . " 
Close Folder " 
Close Window" 

Format. . ." 

Edit " .8 



JH 
FL 
HD 
CH 
FO 
DJ 
CA 
DA 
FL 
AO 
MC 
KF 
KG 
OL 
EM 
LA 
MA 
NA 
GF 
FJ 
MH 
NA 
AJ 
IE 
FH 
FD 
LC 
CM 
MP 
BD 
AO 
JG 
AG 
OP 
IF 
OH 
MB 
Ml 
AD 
IH 
NB 
EL 
IF 
DJ 
CB 
LD 
HK 
NG 
LA 
IF 
JE 
Bl 
EG 
GL 
PF 
EM 
NH 
IE 
JG 
NG 
CC 
AD 
PH 



Align Left ",42 

Align Middle ",36 
Align Right", 17 



392 sys menus,3,2,1 ,italic$,128or33 

393 sys menus,3.3, 1 .scripts, 1 28or1 3 
394sysmenus,3,4,0," 

395 sysmenus,3,5,2, 

396 3ysmenus,3,6,1, 

397 sysmenus,3,7,1, 
398: 
399: 

400sysmenus,4,0,1." Goodies ",23 

401 sysmenus,4,1,1,disk$J92or1 

402sysmenus,4,2,1,paper$,192or1 

403sysmenus,4,3,2,mouseS,192or1 

404 sys menus,4,4,1 ,cmlgS, 1 92or1 

405sysmenus,4,5,0/ "" 

406sysmenus,4,6,1, " Key 

407 

408 

409 

500 rem display menu bar & white mouse 

510 sys menus on,7,6:sys mouse on, 1 

520: 

530 rem main program loop start 

540: 

550 rem poll variables as needed 

560 nm = peek(mn):im = peek(mi):bt = peek(mb) 

570 xm = peek(mx} + 256*peek{mx 4-1} 

580 ym = peek(my) 

590: 

600 rem 'on nm gosub xxx,xxx,xxx,xxx' 

610 if nm then print nm,im:poke{mn),0 

620: 

630remif bt = 1 then 'acton right btn 

640 if bt = 255 goto720 'act on left btn 

650: 

660 rem try sys draw,rnd(1)*320,rnd(1)*180 

670 rem try if bt = 255 then sys draw,xm,ym 

680: 

690 goto530 'main ioop 

700: 

710 remove mouse, menu bar, await keypress 

720 sys mouse off. sys menus off 

730 wait1 98,1 :get aS:sys lexLend 

740: 

799: 

999 rem subroutines to build strings 

1 000 ns = 48:gosub2000:edit$ = a$ 
1002ns = 48:gosub2000:type$ = aS 
1004ns = 48:gosub2000:pen$ = aS 
1006 ns = 48:gosub2000:erase$ = a$ 
1008ns = 48:gosub2000:tillS = a$ 
1 010 ns = 48:gosub2000:cube$ = aS 
1 01 2 ns = 48:gosub2000:spray$ = a$ 
1014ns-48.gosub2000:actnS = a$ 
1 01 6 ns = 56;gosub2000:faunts$ = a$ 
1018 ns - 56:gosub2000:italic$ = a$ 
1020ns = 56:gosub2000:script$ = a$ 
1022ns = 48:gosub2000:disk$ = a$ 

1 024 ns = 48:gosub2000:paperS = a$ 
1026ns = 32:gosub2000:mouse$ = a$ 

1028ns = 48:gosub2000:omlg$ = aS 
1030 return 

2000 a$= " \tori = 1 to ns:read byte 
2002 a$ = a$ + chr$(byte):next 
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CC| 2004f = fre(")Telurn 
KE I 2006 : 

2999 rem string dala 

3000 rem editS - [image$-2] 



OM 

DH 

IN 

AJ 

PC 

NO 

PJ 

KD 

AA 

EO 

PE 

NC 

NL 

DA 

HM 

OB 
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NO 

LN 
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JA 

KO 

CO 

EP 

JC 

GB 

CO 

ML 

NA 

JA 

IC 

KO 

EJ 

PC 

JF 

KC 

LD 

LN 

LA 

EM 

GG 

GO 

MG 

GJ 

BG 

GJ 
HI 

HJ 

JN 

GH 

HP 

FO 

BK 

LB 

PM 

PA 

AP 

NO 

DK 

AP 

MK 



3005 data 0,124, 64, 64, 64, 
3010 data 0, 0, 0, 0, 
3015 data 0, 62, 2, 2, 2, 

0, 64, 64, 64, 

0, 
2, 



3020 data 0, 

3025 data 0, 0, 0, 0, 
3030 data 0, 0, 2, 2, 
3035 rem type$ - [image$~2] 

3040 data 0, 7, 15, 28, 0, 

3045 data 0,255,255, 24, 24, 

3050 data 0,224,240, 56, 0, 

3055 data 0, 0, 0, 0, 0, 

3060 data 24, 24, 24, 24, 24, 

3065 data 0, 0, 0, 0, 0, 
3070 rem pen$ - [Jmage$-2] 

3075 data 0, 0, 0, 0, 0, 
3080 dala 0, 254, 254. 130, 146, 

3085 data 0, 0, 0, 0, 0, 

3090 data 0, 0, 0, 0, 0, 

3095data130, 146.238, 68. 40, 

3100 data 0, 0, 0, 0, 0, 
3105 rem eraseS - [image$-2] 

0, 0, 0, 

0, 15, 31, 
0,224, 160, 

4, 4, 3, 



64, 0, 

0, 0, 

2, 0, 

64, 124, 

0, 0, 

2. 62, 



31 10 data 0, 0, 

31 15 data 0, 0, 

3120 data 0, 0, 

3125data 1, 3, 



3130data 9,242, 12, 8,240, 

3135 data 0, 0, 0, 0, 0, 

3140 rem fills -[image$-2] 

3145 data 0, 0, 0, 0, 0, 

3150dala 0, 48, 32, 64,128, 

3155data 0, 0, 0, 0, 0, 

31 60 data 15, 31, 15, 3, 0, 

31 65 data 255, 254, 252, 248. 240, 

31 70 data 24, 8, 8, 8, 8, 

31 75 rem cubeS - [image$-2] 

3180data 0, 0, 3, 12, 16, 

31 85 data 48,204, 3, 0, 0, 

3190data 0, 0, 0,192, 96, 

3195 data 21, 26, 21, 14, 3, 

3200data127, 191, 127. 191, 126, 

3205 data 224, 224, 224, 128, 0, 

3210 rem spray$ ~ [image$-2] 

3215 data 0. 0, 1, 6, 8, 

3220 data 0, 0,255,126, 24, 

3225 data 0, 16, 64, 8, 32, 

3230 data 16, 16, 0, 0, 0, 

3235 data 1 53, 1 53, 255, 255, 255, 

3240 data 0, 0, 0, 0, 0, 

3245 rem actn$ - [image$-2] 

3250 data 0, 0, 0, 0, 

3255 data 0, 0, 1, 3, 7, 

3260data 0,192,192,128, 0, 

3265 data 14, 15, 7, 3, 3, 

3270data118, 185, 221,222, 191, 

3275data216, 180, 108,216, 48, 

3280 rem fauntsS - [image$-1] 

3285 dala 0, 0, 0, 0, 0, 

3290 data 126. 144, 80, 30, 80, 

3295 data 0, 0, 120, 206, 205, 



0, 0, 

24, 24, 24 

0, 0, 

0, 0, 

60,126, 

0, 0, 

0, 0, 

178, 162, 162 

0, 0, 

0. 10, 

16,176, 

0, 0, 

0, 0, 

33, 66, 132 

64, 64,128 

0, 0, 

0, 0, 

0, 0, 

1, 3, 7 
0, 255, 255 

56,216, 152 

0, 0, 

32, 0, 

0, 0. 

28, 23, 26 

1, 7,223 
224, 224, 224 

0, 0, 

248, 32, 

0, 0, 

24, 16, 16 

126, 153, 153 

8, 0, 

0, 0, 

255, 0, 

0, 0, 



0, 0, 12 
14, 29, 59 

0, 128. 96 

1, 0, 
255, 255, 255 
160,192,128 

0, 0, 

144,144, 96 
204, 120, 



EN 
CB 
LB 
BM 
NO 
LM 
IL 
OP 
OH 
AB 
NH 
HL 
DP 
DP 
PL 
ID 
HB 
HB 
CB 
MG 
EB 
HI 
OP 
BP 
OK 
DC 
CG 
PK 
FH 
OE 
DG 
AK 
JG 
LJ 
BP 
AN 
CO 
00 
FN 
BH 
HA 
KM 
DM 
LD 
HK 
IM 
OF 



3300 dala 0, 0, 56,100,164, 37, 
3305 data 0, 48,252, 48, 48,241, 
3310data 0, 24, 36, 68. 130, 3, 



0, 0, 
0, 0, 



0. 12, 63, 12, 24, 24, 
0, 0, 30, 3, 62, 102, 



3350 dala 
3355 dala 



3315 data 0, 0. 0, 0, 
3320 rem italic$ - [image$-1] 
3325 data 0, 0, 0, 0, 
3330data 30, 12, 12. 12, 24, 24, 
3335 data 
3340 data 

3345 data 0, 28, 12, 12, 24, 24, 

0, 12, 0, 28, 24, 24, 
0, 0, 30, 48, 96, 96, 
3360 rem scripts- [image$-1] 
3365 data 0, 0, 0, 0, 0, 0, 
3370data114, 140, 192, 56, 6,113, 
3375 data 0, 0,112,200,192,193, 
3380 data 0, 0, 80,104,200, 69, 
3385 data 24, 0, 24, 24, 24,249, 
3390 data 0, 1 76, 200, 1 36, 200. 1 77, 
3395 data 0, 48,252, 48, 48,241, 
3400 rem disk$ - [image$-2] 
3405 data 0,127, 64, 64, 64, 64, 
3410data 0,255, 0, 0,126,129, 
3415 data 0,254, 2, 2, 2, 6, 
3420 data 64. 64, 64, 64, 64, 64, 
3425 data 126, 0, 24, 24, 24, 0, 
3430 data 2, 2, 2. 2, 2, 2, 
3435 rem paperS - [[mage$-2] 



66, 

14, 

60, 

0, 

0. 
60, 
14, 
62, 
60. 
60, 
60, 


















0, 
129,126 

126, 
69, 
30, 

142, 128 
14, 

64, 64 

1 29, 1 29 

2, 2 

127, 
255, 
254, 



3440 dala 

3445 dala 0,255, 

3450 data 

3455 data 

3460 data 0, 0, 

3465 data 



0, 15, 16, 32, 32, 32, 

0, 0, 



0, 0, 

0,248, 16, 32, 32, 32 

4, 30, 33, 65, 65, 34 

0. 0, 0, 

2, 2, 2. 



0, 
4. 



8, 4. 
3470 rem mouse$ - [image$-21 
3475 data 0,127. 81, 81, 81, 95, 
3480 data 0,255, 69, 69, 69,125, 
3485 data 72, 72, 72, 79, 80, 96, 
3490 data 9, 9, 9,249, 5, 3, 
3495 rem cmlg$ - [image$-2] 
3500 data 0,127, 64, 65, 71, 79, 
3505 data 0, 255, 0, 252, 252, 255, 
3510 data 0,254, 2, 2, 2,226, 
3515 dala 95. 79, 79, 71, 65, 64, 
3520 data 3,131,255,252,252, 0, 
3525 data 2,194,226, 2, 2, 2, 
3530 end of dala 



16, 

0, 

16, 

31, 

255, 

248, 

72, 

9, 
127, 

255, 



8 

8 




72 
9 





79, 95 

131, 3 

194, 2 

127, 

255, 

254, 



Program to generate pointer sprite for optional editing 



MA 

BF 

NA 

BC 

BE 

OK 

LG 

MD 

HJ 

OD 

AL 

NK 

GN 
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1 00 rem pointer arrow sprite generator 

110for] = 1 to 64: readx 

120cfi = c[i+x: next 

1 30 if cfi<>499 then print " checksum error ' 

140 print "dala ok, now creating file': print 

1 50 restore 

1 60 open8,8,8, " 0: arrow. spr,p,w " 

170 print#8,chr$(192)chr$(63); 

1 80 for j = 1 to 64 : read x 

190print#8,ctir$(x); : next 

200 close 8 

21 print " prg file 'arrow.spr' created. . , 

220 print " this generator no longer needed. 



: end 
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EA 


230 rem 


FA 


1320data 96,172, 3,128,174, 6,128,208, 5 






LD 


240 data 0, 0, 0, 0, 0. 0, 32, 


HH 


1330dala160. 0,174, 3,128,189, 82,128, 73 






EM 


250dala 0, 48, 0, 0, 56, 0, 0, 60 


PI 


1340data255, 57. 59.128,153, 59,128,189, 82 






FA 


260 data 0, 0, 62, 0, 0, 63, 0, 


Fl 


1350data128, 73,255, 57, 67,128,153, 67,128 






GB 


270 data 60, 0. 0, 38, 0, 0, 6, 


DD 


1360 data 173, 7, 126,201, 0,240, 5,201, 2 






CP 


280 data 0, 3, 0, 0, 3, 0, 0, 


HG 


1370data240, 11, 96,185, 59,128, 29, 82,128 






AP 


290 data 0, 0, 0, 0, 0, 0. 0, 


OJ 


1380 data 153, 59,128. 96,185, 67,128, 29, 82 






KP 


300 data 0, 0, 0, 0, 0, 0, 0, 


BM 


1390 data 128, 153, 67,128, 96,172, 3,128,174 






KH , 310 data 0, 0. 0, 0, 0, 0, 0, 68 


AH 


1400 data 6, 128,208, 5, 160, 0.174, 3,128 






GN 


14l0datal85, 59,128, 61, 82,128,141, 95,128 




Generator for "MENUS" 


lA 


1420datal85, 67,128, 61, 82,128, 96,174, 6 






FP 


1430daa128, 157, 74,128, 96,174, 6.128,188 






CC 


100 rem save ''0:menus.bas",8 


HG 


1440data 74.128, 96,173, 3,126, 56,233, 1 






AN 


110 rem a hires menu system for use 


LK 


1450data 10, 10,133,163, 10,101,163,133,163 






KP 


120 rem with 'hires' 8. 'viewports' 


DN 


1460dala 10,101,163,133,163,173, 6,128, 10 






EB 


1 30 rem by anthony bryant 


JD 


1470data 10,101,163,168, 96,170, 32,143,129 






BA 


140 rem winnipeg,manitoba 


LE 


1480data138, 153, 0,141,200,165, 34,153, 






KA 


150: 


GC 


1490dala141,200, 165, 35, 153, 0, 141,200, 140 






GD , 160 for j = 1to3030.readx:ch = ch + x. next 


LJ 


1500dala 8,128,169, 0, 32,224,129,174, 3 






KM 


1 70 if ch<>347286 then print " checksum error! " :slop 


KB 


1510 data 128, 236, 19,128,144, 3,142, 19,128 






MM 


1 80 restore 


CN 


1520 data 173, 6, 128,221, 19, 128,144, 3,157 






LG 


190 rem data ok, create ml file 


JC 


1530 data 19,128, 96,172, 8,128,153, 0,141 






Gl 


200 open 15,8,15 


EB 


1540data 96, 32,143,129,190, 0,141,200,185 






NO 


210open8,8,1,"0:menus" 


OL 


1550 data 0,141,133, 163,200, 185, 0,141,133 




OM 


220input#15,e,e$,b,c 


MO 


1560 data 164, 200, 185, 0,141, 133,165,140, 8 






LI 


230 it e then cose15:print e;e$;b;c:stop 


PG 


1570 data 128, 138, 36,165, 16, 6, 80, 1, 74 






AH 


240 pnnt#8,Ghr$(0)chr$(128); 


ED 


1580data 1^, 74, 74,170,165.165, 36,165, 96 






KP 


250forj = 1to3030:readx:print#8,chr$(x):nex 


MM 


1590data169, 1,141, 51,128,160, 0,140, 6 






FH 


260dose8:close15 


LH 


1600data128, 200, 140, 3,128,204, 19, 128,240 






PM 


270 print " » » module created * * " :end 


ND 


leiOdata 2,176, 16, 32,231,129,112, 6,172 






Ml 


280: 


EA 


1620 data 3,128,200,208,235,159, 2,141, 51 






GP 


1000 data 76, 97,128, 0, 1, 0, 0, 0. 


' M 


1630data128, 160, 0,140, 3,128, 96,174, 27 






NN 


1010 data 76,152,137, 0, 0, 0, 0, 0, ^ 


CM , 1640data128,134,189, 172, 35,128,132,190, 32 






CL 


1020 data 0, 0, 0, 0, 0, 0, 0, 0, 


AE 


1650data213, 136, 160, 0, 140, 6, 128, 20O, 140 






ML 


1030 data 0, 0, 0, 0, 0, 0, 0, 0, 


EE 


1660 data 3,128,204, 19,128,240, 2,176,221 






FJ 


1040 data 1, 1, 1, 1, 1, 1, 1, 40, 


JA 


1670daal85, 19,128,208, 6,141, 7,128, 32 






DN 


1050 data 0. 0, 0, 0, 0, 0, 1, 0, 


BJ 


1680dala 33,129, 32,157,136, 32,100,129, 32 






KN 


1060 data 0, 0, 0, 0, 0, 0, 0, 0, 


Fl 


1690data231,129, 41, 63,240, 9, 24,101,189 






EO 


1070 data 0, 0, 0, 0, 0, 0, 0, 0, 


JN 


1700data170, 164, 190, 32,213,136, 32,231,129 






00 


1080 data 0, 0, 0, 0, 0, 0, 0, 0, 


GH 


1710 data 5,158, 32,224,129. 36,165, 32,200 






GC 


1090 data 0, 0,128, 64, 32, 16, 8, 4, 2 


BK 


1720 data 135, 172, 3, 128,200,208, 194,173, 5 






ON 


llOOdata 1, 0,216, 0, 0, 0, 0, 32,121 


DG 


1730 data 128, 240, 99,173, 19,128,240, 94,172 






lA 


11 10 data 0.240,111,201, 44,240, 16, 72, 32 


FN 


1740data 35,128,132,190, 32,112,138,200,173 






B 


1 1 20 data 3, 1 29, 1 04, 201 , 1 56, 240, 77, 201 , 1 45 


BF 


1750dala 51,128,136,196,190,240, 5, 74,144 






PJ 


11 30 data 240, 112, 76, 8,175, 32,241,183,138 


ON 


1760 data 248, 176, 72,160, 0,140, 6,128,200 






FK 


1140data240, 61,224, 8,176, 57,142, 3,128 


DL 


1770 data 140, 3,128,204, 19, 128,240, 2, 176 






M 


1150data 32,241,183,224, 9,176, 47,142, 6 


MO 


1780data 56, 32,231,129,133,192, 41, 63,133 






DL 


1160data128, 32,241,183,224, 3,176, 37,142 


IC 


1790 data 189, 205, 13,128,240, 2,176, 40,138 






JP 


1170data 7,128, 32, 33,129, 32,121, 0,208 


BD!l800data 24,101,189,205, 13,128,240, 2,176 






JO 


1180data 1, 96, 32,253,174, 32,158,173, 32 


MP 


1810 da a 6, 172, 3, 128,200,208,213, 134, 180 






JM 


1190 data 163, 182, 32,172,129, 32,121, 0,208 


LK 


1820 data 32,100,129,173, 95,126,208, 13,165 






PM 


1200data 1. 96, 32,241,183,138, 76,224,129 


PJ 


1830dala180, 166, 189, 164,190, 36,192, 32,118 






PN 


1210 data 76, 72,178,162, 0,138,157, 19,128 


MH 


1840data132, 24, 96, 32, 56,130, 56, 96,165 






FM 


1220 data 232, 224, 8, 144,248, 141, 8, 128,170 


JH 


1850data190, 24,109, 51,128,133,177,165,189 






CJ 


1230 data 157, 0, 141,232,208,250,173, 5,128 


MD 


1860 data 133, 176, 160, 0, 132, 178, 132, 179, 132 






JP 


1240data240, 37, 32, 56,130,140, 6,128, 32 


DD 


1870 data 166, 162, 1,142, 6,128, 32,231,129 






FM 


1250data187, 133,169, 0,240. 24,173, 5,128 


LA 


1880datal12, 12, 41, 63,240, 2,232,232,160 






HE 


1260data208, 19, 32,255,133,173, 19,128,240 


GF 


1890data 0,132,166,240, 27, 41, 63,197,166 






iFP 


1270data 11, 32, 19,130, 32,166,133, 32, 62 


LF 


1900 data 240, 2, 176, 4, 160, 0, 132, 166, 164 






DB 


1280data130, 169,255,141, 5,128, 96, 32,115 


MJ 


1910datal66, 133, 166, 138, 56, 101, 166, 170, 192 






KG 


1290data 0,208, 1, 96, 32,241,183,138, 41 


FK 


1920 data 0,208, 4,230,179,230, 179,228, 178 






GP 


1300data 15,141. 4,128, 32,241,183,138, 10 


KJ 


1930 data 144. 2,134,178,238, 6,128,172, 3 






NN 


1310data 10, 10, 10, 13, 4,128,141, 4.128 


JP 


1940 data 128, 173, 6,128,217, 19, 128, 144, 190 
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ED 



1950 data 240, 
1960 data 144, 
1970data189, 
1980 data 165, 
1990 data 128, 
2000 data 153, 
2010 data 133, 
2020 data 1 , 
2030 data 157, 
2040 data 197. 
2050 data 166, 
2060 data 192, 
2070 data 201, 
2030 data 165, 
2090 data 3, 
2100 data 135, 
21 10 data 165, 
21 20 data 235, 
2130 data 136, 
2140 data 128, 
2150 data 240. 
2160 data 96, 
21 70 data 240, 
2180data162, 
2190 data 95, 
2200 data 174, 
2210 data 240, 
2220 data 6, 
2230 data 172, 
2240 data 100, 
2250 data 56, 
2260 data 165, 
2270 data 4, 
2280 data 134, 
2290 data 133, 
2300 data 1 75, 
2310data 133, 
2320 data 132, 
2330 data 96, 
2340 data 1 , 
2350 data 176, 
2360 data 231, 
2370 data 101, 
2380 data 32, 
2390 data 196, 
2400 data 240, 
2410 data 229, 
2420 data 159, 
2430 data 176, 
2440 data 80, 
2450 data 196, 
2460 data 13, 
2470data216, 
2480 data 40, 
2490 data 208, 
2500 data 0, 
2510 data 100, 
2520 data 133, 
2530 data 32, 
2540 data 240, 
2550 data 36, 
2560 data 253, 
2570 data 133, 



188, 165, 

11,240, 

76, 6, 

178, 153. 

165, 179, 

51,128, 

32, 96, 

142, 6, 

136, 32, 

166,240, 

164, 166, 

0, 240, 
131, 166, 

159, 32, 
32, 40, 
36, 165, 

165, 41, 
32, 56, 
32,208, 

173, 6, 
145, 96, 

160, 1, 
2,176, 
0,142, 

128,208, 
6,128, 

22, 238, 
128,217, 
3,128, 
129,173, 
130,140, 
1 80, 1 66, 

80, 2, 
160, 0, 
175,177, 
145,247, 
191, 32, 

32, 143, 

32, 77, 

141, 6, 

134,158, 

129, 80, 

176, 133, 

138,139, 

159,240, 

2,176, 

158,197, 

208, 52, 

60, 32, 

26, 196, 

159,240, 

138,229, 

196, 159, 

176, 8, 

3, 238, 

142, 6, 
129, 173, 

32, 92, 
120,133, 

1, 96, 
165, 76, 
136,208, 

32, 137, 



176, 24, 

9, 233, 

131, 165, 

43, 128, 
201, 21, 

96, 32, 

135, 164, 
128, 160, 
231, 129. 

2,176, 
133,166, 

9,164, 
176,164, 
129,129, 

136, 32, 
112, 20, 

63, 240, 
136, 76, 
1 36, 238, 
128,217, 
165, 197, 
140, 3, 

67,185, 
6, 1 28, 

32, 32, 

240, 6, 

6, 1 28, 

19, 128, 
200, 208, 

95,128, 

6,128, 

189,164, 

112, 31, 

177,247, 

247, 74, 
200,196, 
110,134, 
134,232, 
139,164, 
128, 166, 

32, 136, 

9,134, 

158, 32, 

240,102, 

9,144, 

69, 228, 

191,176, 

32, 100, 

138, 139, 

159,240, 

2, 1 76, 

158, 197, 

240,212, 

206, 6, 

6, 128. 

128, 142, 

95,128, 

133, 32, 

32, 100, 

165, 191, 

118,132, 

248, 96, 
138, 32, 



101,178,201 

39, 73.255 

176,153, 27 

165,177,153 

144, 2,169 

252,130, 32 

177,132,159 

0,132, 166 

80, 31, 41 

4,160, 

24,101, 176 

159,136,136 

159, 32,213 
32, 100, 129 

231, 129, 32 

160, 0,132 
13, 170, 189 

250, 131, 32 
6,128, 172 

19,128, 144 
201, 64,208 
128,204, 19 

1 9, 1 28, 240 

32, 100, 129 
231, 129, 112 

41, 63, 197 
172, 3,128 
144,226,240 
190,198,198 
208, 1, 96 

96, 32,187 

190, 36,192 
133, 191, 32 

10, 10, 10 
74, 74, 74 

191, 144,233 
162, 0, 32 
224, 2, 144 
177,132,159 
178, 134, 191 
129, 132, 159 
191, 41, 63 
129, 133, 176 

36,165, 80 

76.136,196 
158,144. 65 

58,144, 4 

133, 32,129 

240, 64, 36 

9, 144, 24 

17,228,158 

191,176. 6 

8, 32,100 

128,173, 6 

76.186,132 

12,128, 96 
208,239, 32 

95,133,160 
129, 173. 95 
166,158,164 
162,184,202 
160, 16, 32 
112, 138,228 
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2580 
2690 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 



data 1 44 
data 196 
data 1 76 
data 32 
data 32 
data 32 
data 76 
data 1 73 
data 1 68 
data 2 
data 133 
data 1 85 
data 167 
data 141 
data 133 
data 70 
data 133 
data 96 
data 133 
data 128 
data 165 
data 1 66 
data 1 73 
data 1 68 
data 1 33 
data 
data 1 43 
data 1 33 
data 204 
data 40 
data 4 
data 1 34 
data 1 60 
data 1 77 
data 1 78 
data 1 44 
data 1 79 
data 105 
data 1 68 
data 1 74 
data 1 69 
data 1 34 
data 1 35 
data 1 44 
data 13 
data 1 33 
data 1 73 
data 240 
data 1 04 
data 24 
data 1 52 
data 1 70 
data 134 
data 136 
data 167 
data 133 
data 1 78 
data 1 36 
data 1 65 
data r 
data 1 35 
data 255 
data 1 67 



20, 138 

177, 144 

2, 24 

243, 134 

159, 134 
42, 134 

159,134 

199, 133 

96, 32 

160, 1 
96, 1 72 

201,133 

166, 168 

199, 133 

56, 233 

250, 106 

249, 24 

0, 

176, 185 

133,178 

176.101 

249, 142 

40, 134 

72, 169 

1.104 

133,247 

134, 136 
247, 170 
133,248 
133,247 
128, 44 

32, 106 

0,165 

249,145 

144,237 

2,230 

144,217 

64, 133 

24, 165 

105, 1 

1,133 

170, 32 

32, 229 
243, 169 
220, 96 
171,165 
165,170 
8,177 
145,167 
101, 167 

24, 101 
232, 228 
162, 

16,251 
105, 64 
168,208 

135, 162 
16,251 

167,233 
133, 168 
32, 84 
145, 167 
105, 8 



229, 176. 

9, 152, 

96, 56, 

32, 1 55, 

32, 246, 

32, 234, 

0, 0, 

174,200, 

205, 133, 

153,201, 

3, 128, 

190,203, 

208, 4, 

142,200, 

144, 133, 

70, 250, 

165,250, 

172, 3, 

35, 128, 

185, 51, 

178,133, 

40, 134, 

174, 41, 

127,141, 

96,166, 

133,248, 



208, 
169, 
104, 
144, 
169, 
134, 



250, 
0, 

96, 
2, 
0, 

32, 



163,208, 
247,104, 
152, 24, 
250, 32, 
76. 19, 
167,165, 
173, 105, 
133,170, 
164, 32, 
205, 133, 
134, 164, 

55,133, 
132,175, 
168,133, 
133,174, 
169, 72, 
200. 192, 

133, 167, 
169, 133. 
178, 144, 
169,128, 
232, 228, 
133,167, 
228, 162, 

0,136, 

232, 228, 

64, 133, 

160, 7, 

134, 162, 
232, 228, 
133, 167, 



197,178,176 

229, 177, 197 

96, 32, 42 

134, 32,216 

134, 76,249 
133, 32,246 

0, 0, 
133, 133, 167 
172, 3,128 
133, 138, 153 
240, 2, 160 
133,208, 10 
169, 0,162 
133, 96,173 
250,173,199 
106, 70,250 
105,142,133 
128, 185, 27 
133, 177, 185 
128, 133, 179 
156, 32,239 
141, 41, 134 
134,133,167 

13,220, 169 

176, 164,177 
152,240, 6 
138, 24,101 
101,248, 72 

24, 165,247 
230,248, 96 
133,163, 32 

10,134,162 

8,177,247 

145,249,200 

101,249,133 

143, 134,232 

135, 24, 165 
172,105, 1 

64, 133, 169 

96,169, 

84,134, 133 

160, 0, 32 

175,200,196 

1, 169, 129 
162, 0, 165 
172, 165, 169 
160, 0, 165 

177, 167, 145 
8, 208, 237 

144, 2,230 
169,144, 2 
210, 96, 32 
160, 7,145 
179,176, 14 
165, 168, 105 

0, 160, 7 
169, 1,145 
179,176, 17 
167, 165, 168 
208,227, 76 

0,160, 
178,176, 12 
144, 2,230 



13 
179 
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76, 31, 137, 141, 93 
32, 37,137, 32,157 
96,128.173, 93,128 
72, 152, 72, 32, 91 



3210 data 208, 235, 96, 16, 4, SO, 20,112, 53 
3220 data 232, 160, 0, 140, 96, 128.202.240, 8 
3230 data 177, 163, 32, 76,136,200,208,245, 96 
3240data232. 160, 128, 140, 96, 128, 165, 163, 164 
3250 data 164. 133, 169, 132, 170,202,208, 1, 96 
3260data 32, 76,136, 24,165,169,105, 8,133 
3270data169, 144, 2,230, 170, 76,238, 135, 165 
3280data158,133. 155, 138, 72,232, 32,225,135 
3290 data 166, 158, 164, 159, 165, 155, 134,155, 170 
3300data200, 32,213,136,104,170,232, 32,238 
3310 data 135, 166, 155,164,159,136, 76,213.136 
3320data 36,165,112, 6, 32. 31,137, 76,131 
3330data137, 32, 131, 137, 
3340'datal28, 32,246, 136, 
3350 data 136, 160, 0,140, 
3360data141. 93, 128,138, 
3370dala136, 104, 168, 104, 170, 96,173, 96,128 
3380 data 208, 54,173, 93,128, 48, 68,201. 32 
3390data144, 48,201, 96,144, 4, 41,223,208 
3400 data 2, 41, 63,174, 94,128,240, 2, 9 
3410 data 128, 162, 0,134,170, 10, 38,170, 10 
3420data 38,170, 10. 38,170, 24,109, 91,128 
3430data170, 165, 170, 109. 92,128,168, 134, 169 
3440 data 132, 170, 76. 45.137,201, 14,208, 7 
3450 data 173, 92,128, 9, 8,208, 30,201, 18 
3460data240, 36, 96, 41,127,201,127,208, 2 
3470datal69, 94,201, 32,144, 4, 9, 64,208 
3480data 186,201, 14,208, 9,173, 92,128, 41 
3490data240,141, 92,128, 96,201, 18,208, 5 
3500data169, 0,141, 94,128, 96,166,176,164 
3510 data 159, 200, 134.158, 132, 159, 32.110,134 
3520 data 133, 250, 134, 249, 6, 249, 42, 6, 249 
3530 data 42, 6,249, 42, 24,105,224,133,250 
3540 data 96,166,176,164,177, 76,213,136,166 
3550 data 156, 202, 202, 164, 159, 
3560 data 1, 2, 4, 40, 16, 
3570 data 180, 184, 180, 70, 56, 
3580 data 85, 170, 85,170, 85, 
3590 data 0, 0, 0, 0, 162, 255, 160, 136, 208 
3600data 4, 162, 7, 160. 137, 134, 169, 132, 170 
3610data173, 14,220, 41,254,141, 14,220,169 
3620data 49,133, 1,160, 7,177,169,153, 23 
3630 data 137, 136, 16,248,173, 95,128,240, 14 
3640data160, 7,185, 23,137, 57, 15,137,153 
3650data 23,137,136, 16,244,160, 7,177,249 
3660 data 25, 23,137,145,249,136, 16,246,169 
3670data 55,133, 1,173, 14,220, 9, 1,141 
3680data 14,220,166,158,232,228,156,176, 13 
3690 data 134, 158, 24,165,249, 105, 8, 133,249 
3700 data 144, 2, 230, 250, 96, 166, 158, 202, 228 
3710 data 176, 144, 13,134,158, 56,165,249,233 
3720 data 8,133,249,176. 2,198,250, 96, 32 
3730data121, 0,240,100,201, 44,240, 12, 72 
3740dat3 32, 27,138,104,201,145.240, 95, 76 
3750 data 8,175, 32,253,174, 32,158,173, 36 
3760data 13, 48, 38, 32,161,183,224, 0,240 
3770 data 35,224, 1,240, 7,224, 2,240, 11 
3780data 76, 72,178,169,160,160.139,162. 39 
3790data208, 6, 169, 199, 160, 139, 162, 15, 133 
3800 data 34,132, 35,208, 4, 32,163,182,170 
3810 data 160, 63,169, 0,153, 64,255,136, 16 
3820 data 250, 160, 0,232,202,240, 10,177, 34 
3830datal53, 64,255,200,192, 64,144,243,169 



76,213, 136, 
0, 0, 56, 70 
0, 170, 85,170 
0, 0, 0, 



PI 
FO 
BF 
JG 
OB 
IK 
IJ 

AG 

BH 

CF 

LO 

BP 

Nl 

PI 

LN 

KC 

GH 

AD 

DD 

AE 

AJ 

JK 

GO 

DK 

PN 

AH 

NM 

LO 

DL 

IE 

JF 

PJ 

FD 

PE 

NE 

NE 

EB 

PF 

OJ 

Jl 

NH 

00 

AF 

MJ 

MK 

AA 

!D 

PJ 

HD 

BE 

IM 

BO 

FB 



3840 data 253, 141,248.207, 96,162,254,169, 49 
3850 data 160, 234,208, 6,162, 1,169, 42,160 
3860 data 138, 120, 141, 20, 3,140, 21, 3, 32 
3870data 88,139, 88, 96, 32,115, 0,208, 1 
3880data 96, 32,241,183,138, 41. 15, 76,134 
3890datal39. 169. 136, 72,169, 55, 72, 8, 72 
3900 data 72, 72, 76, 49.234, 32,137,138, 32 
3910 data 138, 139, 141, 12.128,240, 6, 32, 89 
3920data138, 76,129,234,172,142, 2,192, 2 
3930data208, 7,166,198,240, 3, 32, 14,132 
3940 data 76,129,234, 48, 4,234, 16, 4, 96 
3950 data 96,234,234. 32,143.130.176,247, 32 
3960datal36, 131, 32,174,132, 76,107.132,173 
3970data 16,128, 74,173, 15,128,106, 74, 74 
3980 data 170, 142, 13,128,173, 17,128, 74, 74 
3990data 74,168,140, 14,128, 96,169,192,141 
4000 data 2,220, 169, 128, 141, 0,220,162, 
4010data232, 208, 253, 174, 25,212,173, 0,220 
4020data 72, 41, 16,141, 12,128,138, 48, 3 
4030data169, 32, 44,169, 0, 13, 12,128, 74 
4040dala 74, 73,255,141, 12,128,104, 41, 15 
4050 data 162, 255, 142, 2, 220, 162, 127, 142, 
4060 data 220, 168, 41, 1,206, 12,173, 1,208 
4070 data 201, 48,240, 20,206, 1, 
4080data152, 41, 2,208, 10,173, 

3,238, 1,208, 
174, 0,208, 173, 

4,224, 22,240, 

0,208, 43, 173, 



208,208, 15 
1,208,201 



4090 data 247, 240, 
4100 data 208. 32, 
41 10 data 1,208, 
41 20 data 208, 224, 
4130 data 254, 141, 
4140 data 8,208, 



152, 41, 
16,208, 
50, 206, 
16,208, 



4 
41 

41 
16,208, 76, 40, 139, 152, 41 
27,174, 0,208,173, 16,208 
41 50 data 41, 1,240, 4,224, 85,240, 13,238 
41 60 data 0,208,208, 8,173, 16,208, 9, 1 
4170datal41, 16,208,173, 0,206, 56,233, 22 
4180datal41, 15,128,173, 16,208, 41, 1,233 
4190data 0,141, 16,128,173, 1,208, 56,233 
4200data 48,141, 17,128,169.199,237, 
4210dala141, 18,128, 96,165,177, 10, 
4220 data 105. 52,141, 1,208, 96,173, 
4230data201, 48,176, 24,169, 75,141, 
4240datal41, 1,208,169,254, 45, 16,208,141 
4250 data 16,208,169,254, 45, 27,208,141, 27 
4260 data 208, 138, 48, 5. 13, 21,208,208 
4270data 45, 21,208,141, 21,208, 96,141 
4280dala208. 96,169, 4, 44, 12,128,208 
4290 data 10, 44, 12, 128,208, 



17, 128 

10, 10 

1,208 

0,208 



6, 169, 



4300 data 169, 255, 

4310 data 0, 0. 

4320 data 56, 0, 

4330 data 63, 0, 

4340 data 6, 0, 

4350 data 136, 0, 

4360 data 80, 0, 



96,169, 
0, 32. 



0, 
0, 
0, 
0, 



60, 

60, 

3, 

80, 



0, 136, 



1, 
0, 
0, 
0, 
0, 
0. 
0, 



96, 
0, 
0, 
0, 
0, 
0, 




0, 
48, 
62, 
38, 

3, 
32, 



0, 
0, 
0, 
0, 
0, 
0, 
0, 



3 
39 
9 
96 









Generator for Garry Kizlak^s '^HIRES'* 



This program, as mentioned in the article, is not necessary for the 
MENUS program to work. It has t>een included here because it's 
used in the demo program. You'll notice that Anthony only uses 
Garry's HIRES to turn on the hi-res screen, prim some hi-res 
messages, and turn the lo-res screen back on in line 730. The 
messages aren't required for correct operation, and the other calls 
could be replaced by POKE statements. HIRES is used again in 660 
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and 670 of Ihe demo, bul this is merely a sample menu selection and 
currently disabled in REM statements. However, HIRES makes a 
terrific companion for this system. 



NF 
DC 
BJ 
AO 
FM 
CD 
IM 
EM 
JG 
CM 
ED 
KA 
KF 



JB 
EN 
BB 
LH 
PP 
GH 
Fl 
CG 
KL 
HN 
PH 
AG 
ML 
Jl 
FM 
AE 
DA 
HC 
PC 
JL 
OP 
LG 
IH 
ME 
HF 
IJ 

HM 
DH 
lA 
DO 
JK 
CP 
AL 
PD 
BO 
NF 
OP 
GK 
LE 



LF 
BH 
FG 
KB 
HL 



1000 rem 'hires' generator by garry kiziak 

1010forj = l to 2080 : read X 

1020ch=ch + x:next 

1 030 if ch<>245727 then print " checksum error " : end 

1 040 print " data ol<, now creating file " : print 

1 050 restore 

1060open8,8,8,"0:hires,p,w'' 
1070 print#8.chr$(0)chr$(192); 
1080 for 1=1 to 2080: read x 

W90print#8,chr$(x);:next 

1100 close 8 

1110 print " prg tile 'hires' created, , . 

1 120 print "this generator no longer needed. 

1 1 30 rem 

76,247,195, 
76, 30,194, 
76, 11,197. 
76,206.197, 



11 40 data 76, 194, 193, 

11 50 data 76, 110, 194, 

1160 data 76.228, 196, 

1170data 76,169,192, 

11 80 data 76, 4,; 



1190 data 0, 0, 
1200 data 7,248, 
1210 data 0, 0, 
1220 data 208, 0, 
1230 data 27, 173, 
1240 data 208, 141, 
1250 data 192, 173, 



0, 


0. 


0, 


0, 


0, 


0, 


1, 


0, 


0, 


0, 



76, 98, 195 

76,214, 196 

76. 67, 197 

76, 199. 199 

0, 0, 0, 0. 

0, 0,255, 128, 

0, 0, 0, 0, 

15,240,240, 0, 

0, 173, 58, 192,208 

0,221,141, 57,192,173, 24 

58,192,173, 17,208,141, 59 

22,208.141, 60,192, 32,110 

1260data192, 96, 173, 0, 3,201,231,208, 7 

1270 data 173, 1, 3,201.192,240, 44,173, 

1280 dala 3,141,234,192,173, 1, 3,141,235 

1290data192, 169,231, 141, 0, 3, 169, 192, 141 

1300dala 1, 3,173, 2, 3,141, 41,193,173 

1310data 3, 3,141, 42,193,169, 8,141, 2 

1320data 3.169,193,141, 3, 3, 96,173, 58 

1330data192,240, 26,141, 24,208,173, 57,192 

1340data141, 0,221,173, 59,192,141, 17.208 

1350data173, 60,192,141. 22,208,169, 0.141 

1360dala 58,192, 96, 72,169.127,141, 13,220 

1370data165, 1,141, 56,192, 41,253,133, 1 

1380 data 104, 96, 72,173, 56,192,133, 1,169 

1390data129,141, 13,220,104, 96, 16, 3, 76 

1400 data 139, 227, 142, 13, 3, 44. 76,192, 16 

1410 data 245, 169, 0,133, 20,169, 0,133, 21 

1420data162,250,154. 169,167, 72,169,233, 72 

1430data 76,163,168, 32,169,192,173,234,192 

1440 data 141, 0, 3,173,235,192,141, 1. 3 

1450data173, 41,193,141, 2, 3,173, 42,193 

1460datal41, 3, 3,169, 0,141, 76,192, 76 

1470data131. 164, 164,254,240, 13,160, 0,145 

1 480 data 251 , 200, 208, 251 , 230, 252, 198, 254, 206 

1490 data 243, 164,253,240, 10,136,240, 5,145 
1500data251, 136,208,251,145,251, 96, 32,201 
1510data192, 160, 0,132,251,160,204,132,252 
1520data160, 232, 132,253, 160, 3,132,254, 32 
1530 data 43,193,169, 0,133,251,169,224,133 
1540 data 252, 169, 64,133,253,169, 31,133,254 

32, 43,193, 76,218,192, 32 
32, 138, 173, 32,247,183,166 
20, 96, 32,253,174, 32,124 
43,192,142, 44,192, 32,121 



1550 data 169, 0, 
1560 data 253, 174, 
1570data 21, 165, 
1580 data 193, 141, 



AP 

MN 

GE 

DJ 

HH 

BE 

KH 

CF 

01 

Fl 

HJ 

NA 

LF 

EB 

OE 

ID 

PF 

GM 

ML 

NN 

MB 

10 

OP 

Bl 

DJ 

AJ 

NG 

PB 

KE 

JG 

FN 

DG 

LG 

DL 

FJ 

IC 

AL 

KA 

FC 

LK 

NG 

MC 

MO 

MB 

CP 

IH 

HF 

CJ 

CG 

KE 

KF 

IJ 

LI 

NK 

AE 

EH 

HE 

KN 

MM 

PJ 

PO 

DA 

LO 



1590data193, 141, 
1600data162, 1, 
1610 data 162, 0, 
1620data 176, 3, 
1630 data 192, 169, 
1640 data 32, 77, 
1650data128, 141, 
1660 data 32, 30, 
1670data 3, 141, 
1680 data 9, 8, 
1690 data 208, 9, 
1700 data 16, 12, 
1710data208, 169, 
1720 data 239, 141, 
1730 data 73.255, 
1740 data 192, 96, 
1750 data 192, 141, 
1760 data 32, 135, 
1770data 10, 141, 
1780 data 192, 41, 
1790 data 48. 12, 
1800 data 70, 192. 
1810data121, 193, 
1820data193, 141, 
1830 data 193, 32, 
1840datal57, 39, 
1850 data199, 237, 
1860 data 252, 160, 
1870 datal02, 251, 
1880 data 174, 40, 
1890 data 16, 6, 

1900 data101, 251, 
1910data104, 41, 
1920 data 253, 144, 
1930 data 253, 74, 
1940 data 44, 53, 
1950 data 253, 133, 
1960 data 76,249, 
1970dala234, 24. 
1980data216, 101, 
1990 data 0, 133, 
2000 data 173, 39, 
2010 data 0. 168, 
2020 data 80, 15, 
2030 data 2, 36, 
2040 data 51, 192, 
2050 data 195, 133, 
2060 data 94, 195, 
2070 data 49,251, 
2080 dala 66, 192, 
2090 data 64, 32, 
2100data 12, 3, 
21 10 data 11, 32, 
2120data 32,214, 
2130 data 32, 14, 
2140data106, 169, 
21 50 data 253, 39, 
2160 data 40, 192, 
2170 data 106, 149, 
21S0data 98, 169, 
2190 data 98,208, 
2200 data 99, 74, 
2210dala 24,169, 



45,192, 

44, 63, 

205, 43, 

76, 72, 

0, 237, 

192, 32, 

53, 192, 

194, 173, 

0,221, 

9, 48, 

32,141, 

173, 22, 

3,208, 

22,208, 

141, 55, 

169, 1, 

66, 192, 

193,173, 

62, 192, 

15,141, 

13, 62, 

76, 75, 

41. 15, 

64,192, 

135, 193, 

192,202, 

41, 192, 

0, 132, 

101,252, 

192, 45, 

10, 72, 

133,251, 

7, 24, 

2, 230, 

102,253, 

192, 48, 

253,169, 

194, 173, 

169, 0, 

254, 133, 

251, 165, 

192, 45, 



44, 
36, 



52, 
2. 



107, 48, 

44, 53, 

97,189, 

133, 97, 

5, 97, 

13, 70, 

16, 8, 

32,110, 

228, 196, 

196, 32, 

195, 76, 

0,149, 

192, 149, 

149, 99, 

107, 56, 

0, 245, 

4, 149, 

133, 103, 

0,229, 



142, 46, 

192, 16, 
192,138, 
178,169, 

46,192, 
121,193, 

32, 121, 

0,221, 

173, 24, 

141, 24, 

17,208, 
208, 9. 

10,173, 
169, 7, 
192,169, 
141, 65, 
169, 128, 

45, 192, 

141, 70, 

61, 192, 
192,141, 

193, 141, 
141, 63, 
173, 62, 
162, 3, 

16,247, 
72, 74, 

251, 74, 
133,252, 

55, 192, 
138, 42, 
138, 101, 
101,251, 
252,165, 

74, 102, 

16, 24, 
204,101, 

65,192, 
101,253, 
254, 24, 

252, 105, 
54,192, 

192, 16, 
48, 9, 

1, 96, 
192, 48, 
86, 195, 
189, 94, 
145,251, 
192,145, 

4, 2, 

194, 32, 
32,121, 

201,192, 
218, 192, 
107, 56, 

98, 189, 

16, 20, 
169, 0, 

99,149, 
106,149. 
165, 98, 

98, 133, 



192,169, 63 

4,169,159 

237, 44, 192 

199,205, 45 

144,241, 96 

240, 2, 169 

0, 240, 3 

9, 3, 73 

208, 41, 7 

208,173, 17 

44, 53,192 

16,141, 22 

22,208, 41 

141, 54,192 

255,141, 51 

192,173, 67 

141, 52,192 

10, 10, 10 

192, 173, 43 

44, 53,192 

62,192,141 

33,208, 32 

192, 32,121 

192, 76, 75 

189, 43, 192 

96, 56, 169 

74, 74,133 

102,251, 74 

173, 39,192 

44, 53, 192 

170,104, 24 

252,133,252 

133,251, 133 

252, 74, 102 
253,133,254 

169, 0, 101 
254,133,254 
201, 3,144 
133,253, 169 
165,251, 105 
224, 133,252 

170, 96, 169 
4,112, 20 

169,255, 133 
177,251, 77 
10, 61, 86 
208, 8, 61 
195, 73,255 
177,253, 45 

253, 96, 128 
1, 192, 48 

121, 0,240 
0,240, 3 

32,125,194 
169, 1,149 
189, 43, 192 

44,192,253 
169,255, 149 
245, 98,149 

99, 96, 21 
107, 96,165 
106,133, 102 
104, 169, 
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ND, 


2220data229, 99,133,105. 96, 24,165,102,101 


FC 


2850data251, 133,253, 133, 3,169, 0,101,252 


FH 


2230 data 100, 133, 102,170, 


165, 103, 101, 101, 133 


BB 


2860 da a 133, 252, 24, 72,105,216,133,254,104 


LA, 


2240data103, 197, 99, 144, 


19,208, 4,228, 98 


NL 


2870data105, 204, 133, 4, 6,251, 38,252, 6 


UE: 


2250 data 144, 13,138, 56, 


229, 98, 133, 102,165 


CG 


2880data251, 38,252, 6,251, 38,252, 24,165 


OA 


2260 data 103, 229, 99,133, 


103, 56, 96, 32, 135 


DH 


2890data252, 105, 224, 133,252, 32,253,174, 32 


PN 


2270daa193, 32, 121, 0, 


240, 44,201, 164,208 ' 


OH 


2900datal58. 173, 32,143,173, 32,166,162,170 


BN 


2280 data 16, 32, 113, 194, 


32,115, 0, 32,138 


Al 


2910data160, 0,232,202,208, 1, 96,177, 34 


KP 


2290data193, 32, 121, 0, 


201, 44,208, 13, 32 


Gl 


2920data 32. 73.198,200, 76, 60,198,133,215 


HA 


2300 data 228, 196, 32, 121, 


0,201. 44,208, 3 


KH 


2930datal38, 72,152, 72,165,215, 48, 17,201 


OB 


2310 data 32.214,196, 32, 


43, 196, 32, 121, 


NH 


2940dala 32,144, 28,201, 96,144, 4, 41,223 


MA ) 2320 data 201 , 1 64, 240, 220, 


96, 32,201,192, 162 


BM 2950data208, 2, 41, 63, 76.110,199, 41,127 


NE 


' 2330 data 0,134, 2, 32, 


129,195,162, 2, 32 


DH 2960data201, 127,208, 2,169, 94,201, 32,144 


OM, 2340 data 129, 195, 165, 98, 


197, 100,165, 99,229 


HL 


2970data125, 76,108,199,201, 14,208, 6, 32 


GC' 


2350 data 101, 144, 62, 32, 


185,195, 36,107, 16 


LG 


2980 data 219, 199, 76,160,199,201, 17,208, 11 


BB 


2360data 10, 32,113,194, 


56, 169, 0,229,108 


MK 


2990data162, 40, 32, 71,199,202,208,250, 76 


CL 


2370datal33, 108, 32,125, 


194, 32. 14,195,230 


NM 


3000 da a 160, 199,201, 18,208, 8, 169, 1, 141 


BG 


2380 data 104, 208, 4,230, 


105,240, 102,238, 39 


KM 


3010data 75,192, 76,160,199,201, 29,208, 6 


CG 


2390 data 192, 208, 3,238, 


, 40, 192, 32,209, 195 


EO 


3020 data 32, 71,199, 76,160,199,162, 3, 44 


AG 


2400 data 144, 9, 24,173, 


, 41, 192, 101, 108, 141 


BB 


3030daa162. 15,221,205,198,240, 6,202, 16 


G 


2410 data 41,192, 32, 126, 


,194, 32, 14.195, 76 


CO 


3040data248, 76,160,199,189,221,198, 10, 10 


MM 

1 


2420data 91,196,162, 1, 


,161, 98, 180,100,149 


EP 


3050data 10, 10,141, 62,192, 44, 53,192, 48 


KP 


2430data100,148, 98,202, 


16,245, 32,185,195 


P 


3060data 6, 13. 61,192,141, 62,192, 32, 51 


EL 


2440 data 36, 107, 16, 10, 


32, 113, 194, 56, 169 


BN 


3070data197, 76,160,199, 5, 28, 30, 31, 16 


BG 


2450data 0,229,108,133, 


108, 32,. 125, 194, 32 


lA 


3080 data 28, 30, 31, 1, 21, 22, 23, 24, 25 


OK 


■ 2460 data 14,195,230,104, 


240, 31, 24, 173, 41 


EC 


3090 data 26, 27, 1, 2, 5, 6, 0, 4, 7 


AM 


2470datal92,101,108, 141, 


41,192, 32,209,195 


AA 


3100data 3, 8, 9, 10, 11, 12, 13, 14, 15 


AG 


2480 data 144, 8,238, 39, 


192,208, 3,238, 40 


ND 


3110dala201, 14,208, 6, 32,216,199, 76,160 


OA 


2490data192, 32,125, 194. 


32, 14, 195, 76, 166 


EC' 


31 20 data 199, 201, 17,208, 11,162, 40, 32, 28 


JG 


2500dalal96, 36, 107, 16, 


3, 32, 14,195, 32 


EK 


3130 data 199, 202. 208, 25a 76,160,199,201, 18 


MG 


2510dalal13,194, 76,218, 


192, 32, 121,193, 41 


HI 


3140data208, 8,169, 0,141, 75,192, 76,160 


JP 


2520 data 3. 73, 3,106, 


106,106, 141, 52,192 


OK 


3150data199,201, 29,208,143, 32, 28,199, 76 


KF 


2530data 96, 32,121,193, 


41, 3,240, 27, 44 


AK 


3160 data 160, 199, 165, 253, 208, 2, 198, 254, 198 


PD 


2540data 53, 192, 16, 22, 


141, 65,192, 170,189 


DJ 


31 70 da a 253, 165, 3,208, 2, 198, 4, 198, 3 


FH 


2550data 61, 192,141, 70, 


192, 189, 66, 192,141 


CA 


3180 data 56, 165,251,233, 8,133,251, 165,252 


HG 


2560data 66, 192,189, 7, 


,197,141, 51, 192, 96 


DD 


3190 data 233, 0,133,252,165,251,201, 0, 165 


NO 


2570 data 0, 85, 170,255, 


, 32, 121, 193, 10, 10 


CK 


3200 data 252, 233,224,-176, 3, 32, 71,199, 96 


OB 


2580data 10, 10, 141, 62. 


, 192, 44, 53, 192, 48 


ME 


321 da a 230, 253, 208, 2, 230, 254, 230, 3, 208 


GN 


2590 data 9, 13, 61, 192, 


,141, 62, 192, 76, 51 


IP 


3220dala 2,230, 4, 24,169, 8,101,251,133 


CG 


2600 data 197. 32,121, 193, 


, 41, 15,141, 63,192 


EM 


3230 data 251, 144. 2,230,252,165,251,201, 64 


CG 


2610data 32, 121, 193, 41 


, 15, 141, 64, 192, 174 


JN 


3240daa165,252,233,255,144, 3, 32, 28,199 


BO 


2620 da a 65, 192, 189, 61 


,192, 141, 70, 192, 189 


KB 


3250data 96, 9, 64,174, 75,192,240, 2, 9 


BJ 


2630 data 66, 192,141. 66 


, 192, 96, 32,110, 194 


NO 


3260 data 128, 32.165,199,160, 7, 32,230,199 


BL 


2640 data 32, 135, 193, 162 


, 3,189, 43,192,157 


NM 


3270data177, 5,145,251,136, 16,249, 32,245 


DD 2650data 47,192,202, 16 


,247, 32,121, 0,240 


LP 


3280 data 199, 200, 173, 61,192, 44, 53,192, 16 


BL 


2660 data 11, 32,228,196 


, 32,121, 0,240, 3 


FO 


3290data 8,173, 64,192,145,253,173, 63,192 


MJ 


2670 data 32,214, 196, 24 


, 173, 39, 192,109, 47 


MO 


3300daa 13, 62,192,145, 3, 32, 71,199.104 


AC 


2680data192, 141, 43, 192 


,173, 40,192.109, 48 


IP 


3310 data 168, 104, 170, 96,133, 5,169, 0,133 


LB 


2690dalal92, 141, 44, 192 


, 173, 41, 192, 141, 45 


! MD 


3320 data 6, 6, 5, 38, 6, 6, 5, 38, 6 


PC 


2700dala192, 173, 42, 192 


, 141, 46,192, 32, 156 


GB 


3330 data 6, 5, 38, 6, 24,173, 71,192,101 


CM 


2710data193, 32, 43,196 


, 56,173, 45, 192,237 


BJ 


3340 data 5,133, 5,173, 72,192,101, 6,133 


LD 


2720data 49, 192, 141, 45 


, 192,173, 46, 192,237 


MG 


3350dala 6, 96, 32,253,174, 32,138,173, 32 


PK 


2730 data 50, 192, 141, 46 


,192, 32,181, 193, 32 


EF 


3360data247, 183, 166, 21,208, 9,165, 20,208 


LP 


2740data 43, 196, 56,173 


, 43,192,237, 47, 192 


i AC 


3370dala 3,162,208, 44,162,216,142, 72,192 


HF 


2750datal41, 43,192, 173 


, 44, 192,237, 48, 192 


jFA 


3380data162, 0,142, 71,192, 96,173, 14,220 


IM 


2760data141, 44,192, 32 


, 43, 196, 24, 173, 45 


1 JA 


3390data 41,254,141, 14,220,165, 1, 41,251 


Al 


2770data192, 109, 49,192 


, 141, 45, 192, 173, 46 


DM 


3400data133, 1, 96,165, 1, 9, 4,133, 1 


OA 


2780datal92, 109, 50,192 


,141, 46,192, 76, 43 


EM 


3410data173, 14,220, 9, 1,141, 14,220, 96 


HC 


2790dalal96, 169, 0,133 


.251, 133,252, 32,241 


HF 


3420data 32,121, 0,240, 15, 32,110,192, 32 


GC 


2600 data 183, 224, 40,144 


, 3, 76, 72, 178,142 


LL 


3430 data 121, 193, 141,245, 192,142,249, 192,169 


PF 


2810data 73, 192, 32,241 


, 183, 142, 74, 192, 136 


JE 


3440datal28, 44,169, 0,141, 76,192, 96, 


DJ 
EG 


2820 data 240, 18,224, 25 
2830 data 105, 40,133,251 


, 176,237, 24, 165,251 
, 144, 2,230,252,202 


AB 


3450 data 






lA 


2840 data 208, 242, 24, 173 


, 73, 192, 101,251,133 
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Garbage Collector Revealed 



Michael T* Graham 
Hopatcong, New Jersey 



. . .the system appears to be dead as a doornail. . . 



That Sinking FeeUng 

You oftly have a few records left lo enter, then you'll be done. 
You finish the current entry, hit RETURN, and, . . nothing! The 
screen doesn't clear, the cursor doesn't blink. Beads of sweat 
break on your forehead as the thougfit of all your work going 
down the tubes explodes on your tired brain. Seconds turn to 
minutes as your mind races, trying to come up with a way out of 
this dilemma. Finally, you push the RUN/STOP key. Still noth- 
ingl What could have happened? Has your poor old 64 given up 
the ghost? Then, as your other hand reaches for the RESTORE 
key, the system springs back to life. You finish the last few 
entries and examine the results- Everything is OK! After storing 
your work to disk, you stare at the screen and mull over the 
doubts you now have about the reliability of your system. 

The above moment of fright was brought to you by a routine in 
BASIC called the garbage collector. As strings are stored and 
changed in BASIC, the string storage space in memory fills up 
with old, useless information, known in technical circles as 
garbage. When memory fills up with this junk, BASIC runs the 
garbage collector to clear it out. In a program with large string 
arrays, this process can lake many minutes to complete and 
while it is running the system appears to be dead as a doornail. 
To add insult to injury, BASIC makes no attempt to tell you to 
"please stand by". How many times has the RESTORE key been 
hil because of this? I shudder at the thought. 

Fighting Back 

Garbage Collector Revealed provides a solution to this problem. 
When installed, this program will display a ^'system busy" 
message on the top line of the screen when the garbage collector 
starts to execute. When collection is finished, the original 
contents of the top line are restored. 

This is accomplished by adding a few patches to BASIC. The 
usual method of hooking into BASIC via RAM vectors won't 
work here, there isn't a vector that points to the garbage 
collector. Instead, the BASIC ROM is copied to RAM and ttien 
switched out. The entry and exit points of the garbage collector 
are then patched to call small routines to display and remove the 
busy message. This all happens in a flash when the message 
program is initialized. When initialization is complete the system 
is executing BASIC in RAM, patches and ail 

Now when BASIC tries to run the garbage collector, one of the 
patches installed above steers execution to the routine that 



displays the busy message. This routine first stores the existing 
contents of the screen and color memory locations used by the 
message. The message is then displayed in the color of your 
choice. When this process is complete, control is passed to the 
garbage collector. 

When the garbage collector is finished, the other patch executes 
the routine that restores the screen to its original contents. This 
is accomplished by simply storing the saved color and character 
bytes back where they came from. The screen is now exactly as 
it was when this all started. Control is then returned to BASIC. 



How To Use il 

First type and save program 1. This program will create a 
machine language program file on disk called GARBMSG con- 
taining the message program code. This file loads the message 
program to the cassette buffer from memory locations 828 to 
1019. Memory locations 2, 251 through 255, and 679 through 
718 are used for working storage. 

When Program 1 is RUN, it will prompt you to insert the disk 
that GARBMSG is to be created on. Do so and hit the RETURN 
key. The program will then be placed on this disk. The disk 
drive may start and stop several times during the process, wait 
for the program to end before removing the disk. 

To use the message patch in your BASIC application, insert the 
following as the first two executable lines in the program: 

10IFA = 0THENA = 1:LOAD " GARBMSG \8,1 
20CLR;SYS828:POKE2.C 

The C in line 20 should be replaced with the number of the color 
you want the message text to be displayed in. If the POKE in line 
20 is left out, the message will be displayed in while. The 
message can be displayed in reverse text by adding the follow- 
ing line: 

30FORI = 1000TO1019:POKEl,(PEEK(l)OR128):NEXTI 

if your BASIC program moves the location of the text screen 
from its normal position in memory, be sure it also updates the 
pointer at memory location 688 to the new screen starting page 
number. The Kernal uses this pointer to find the text screen and 
so does GARBMSG. Under normal conditions this is not re- 
quired. 
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Note Ihal if the system is reset with RUN/STOP-RESTORE, ttie 
message patch will be disconnected, running your BASIC pro- 
gram again will re-install it, so this shouldn't be a problem. 

As is, the garbage collector will run whenever BASIC decides 
that memory is getting short. You can force garbage collection to 
occur at any point in your program by inserting X = FRE(O) at an 
appropriate line in your program. The FRE( ) function runs the 
garbage collector so it can give you a true indication of your 
remaining memory space. You can use this to get garbage 
collection "over with" at a strategic spot in your program, such 
as when other lengthy proce.sses are taking place. In either case, 
the messaga will be displayed while the garbage collector is 
running. 

To test the message program, enter program 2. This program is 
designed to do nothing but create garbage. Be sure to have a 
disk containing GARBMSG in the drive when you RUN it. If all is 
well, you should see the message being displayed every few 
seconds. Note that the original text and color Is restored when 
the message disappears. Note also the use of a contrasting color 
and reversed text for the message, this will make it easier to see 
on a crowded screen. Lines 160 to 180 demonstrate the use of 
the FRE( ) function to force a run of the garbage collector. 

Although there is no easy way to rid yourself of the infamous 
garbage collector, at least now you will know when it runs. You 
can now use the time you worried through for more productive 
purposes, .such as getting a fresh beer or watching a few minutes 
of the Brady Bunch. 

Happy Computing! 



GarbMessage: Demonstration Progreun 



GarbMessage: Creates ML on disk 



MM 

DB 

DA 

Ml 

FK 

MG 

PH 
FG 

KB 
OD 
MC 
FJ 
CI 
NM 
CK 
WN 
LC 
NO 
AJ 
GA 
PA 
CN 



100 rem garbage collector message demo 
110 rem by mil<e graham 12/02/86 
120ifa = 0thena-1:load "garbmsg' ,8,1 
130 c[r:sys 828:poke 2,7:rem color = yellow 
140 fori -1000 to 1019 
150pokei,(peek(i)or 128):rem reverse garb 

message text 
1 60 next i 
1 70 poke 56,20:clr:rem restrict memory size 

(normally 160) 

180 1$= "garbage" 

190 print "jg a line of text at the top of the screen. 

200 dim a$(200) 

210fori-1 to 7 

220 for 1 = to 200 

230a$(j) = lefl$(t$ ,i) - 

240 print " BBBI "j" [3 spcs] "; 
250 next j 

260 print tab{9)a$(1) " [6 spcs] " 

270 next i ^^^^ 

280 print " E|[jj|j^ forced collection " 

290 x = fre (0):rem fo rce garbage collection 

300phnl" BBBBB| [17 spcs]" 
310goto210 



IF 
DB 
LK 
HB 
LE 

LE 

IL 

ID 

HO 

BP 

IE 

KL 

OF 

AO 

OA 

CO 

DO 

BD 

EF 

FB 

LP 

LG 

LM 

IG 

HL 

BH 

GL 

EC 

BD 

Al 

PF 

ML 

BF 

FL 

Al 

AK 

AD 

GG 

FF 



100 rem generates gargage collector message 

110 rem by mike graham 12/02/86 

1 20 for j = 1 to 1 92 : read x 

130ch = ch + x : next 

1 40 If Gh<>22794 then print " checksum error " 

: end 
1 50 print " data ok, now creating file ' : print 
1 60 restore 

170 open8,8,8, "0:garbmsg,p,w" 
1 80 print#8,chr$(60)chr$(3); :rem start addr - 828 

($0330) 
190forj = 1 to192:readx 
200 prinl#8,chr$(x); ; next 
210 close 8 

220 print " prg file 'garbmsg' created, , . 
230 print " this generator no longer needed- 
240 rem 

250 data 169, 0, 133,251,169, 160, 133,252 
260 data 1 60, 0, 1 77, 251 , 1 45, 251 , 200, 208 
270 data 249, 230,252, 165,252,201,192, 48 
280 data 241, 169, 76,141, 38,181,141, 6 
290data182, 169, 128, 141, 39, 181, 169, 3 
300data141, 40, 181, 169, 138, 141, 7, 182 
310 data 169, 3, 141, 8,182,169,239, 133 



320 data 0,165, 1, 
330 data 1,133, 2, 
340 data 55, 165, 56, 
350 data 5, 78,240, 
360 data 198, 3, 76, 



41,254,133, 1,169 

96, 32,153, 3,166 

76, 42, 181,165, 79 

3. 76, 12.182, 32 

1,182, 8, 152, 72 



370 data 169, 10,133,253,173,136, 2,133 
380 data 254. 1 60, 1 9, 1 66, 2, 1 77, 253, 1 53 
390data167, 2,185,232, 3, 41,191,145 
400 data 253, 185, 10,216,153,187, 2,138 
410data153, 10,216,136, 16,231,104,168 
420data 40, 96, 8, 72,152, 72,169, 10 
430 data 133, 253, 173, 136. 2, 133,254, 160 
440 data 19.185,167, 2,145,253,185,187 
450 data 2,153, 10,216,136, 16,242,104 
460 data 168, 104. 40, 96, 32, 62, 87, 65 
470 data 73, 84, 44, 83, 89, 83, 84, 69 
480 data 77, 32, 66, 85, 83, 89, 60, 32 



GarbMessage: PAL Source Code 



PH 
CO 
IH 
HN 
BB 
BC 
KJ 
PC 
FD 
CP 
NP 
MM 
DB 
EF 



1 000 rem — garbage coliector message — 

1010 rem by michael t graham 

1020 rem open8.8,8, "0:garbmsg,p,w " 

1030sys700 

1040;, opt o8 

1050 ;pal assembler source code 

1060; 

1070 ;this basic patch puts a message 

1080 ;on screen when basic's garbage 

1090 ;colleclor runs, basic is moved to 

1 100 ;ram at initialization, 

1110; 

1 1 20 hibase = $0288 ;kernal screen page addr 

1130addr = $fb ;movevector 
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MC 


1140patchl = $b526 ;patch startof inpu or 


KB 


1780 ;save user screen and put message 




MM 


1 1 50 patch2 = $b606 ;patch end of inputor 


BC 


1 790 ;on screen before starling 




10 


1 1 60 retl 


= $b52a .continue start 


LL 


1800 ;garbage inputor 




IH 


1 1 70 coni 


== $b60o ;inputor not done 


II 


^— ' ^— ' 1 

1810; 




DO 


1180 quit 


= $b601 ;end inpution 


BM 


1 820 msgon php ;save status 




EB 


1190 CO or 


= $02 ;message CO or storage 


Bl 


1830 tya ;andy 




BK 


1200cmem = $d80a ;color memory start 


MM 


1840 pha ;register 




NG 


1210screen = $fd ;screen vector storage 


LH 


1850 Ida #10 ;startat 




KD 


1220; 




AK 


1 860 sta screen ; 1 1 th char 




GK 


1 230 * = $033c ;cassette buffer 


AD' 


1870 Ida hibase ;get screen 




OE 


1240; 




DD 


1880 sta screen + 1;pageaddr 




FG 1250 ;jnitialize message patch (sys 828) 


FJ 


1890 Idy #19 ;20 characters 




CG ' 


1260; 




10 


1 900 Idx CO or ;message color 




CA 


1 370 init 


Ida #$00 ;setup 


FC 


1910 move Ida (screen),y ;save existing 




GG 


1280 


sta addr ; indirect 


JA 


1920 sta buffer.y ;screen contents 




KB 


1290 


Ida #$a0 ;address 


KF 


1930 Ida messag.y ;get message 




FO 


1300 


sta addr+1 ;tomove 


PA 


1940 and #$bf ;convert to screen code 




OD 


1310 


Idy #$00 ;basic 


JD 


1950 sta (screen),y ;disp ay message 




KM 


1320 xfer 


Ida (addr),y ;move basic rom 


HN 


1960 Ida cmem.y ;save existing 




EL 


1330 


sta (addr),y ;to ram 


HC 


1970 sta cbuff,y ;color memory 




MB ; 1340 


iny 


OA 


1980 txa ;f€p ace with 




DM 


1350 


bne xter 


JH 


1990 sta cmem.y ;messagecotor 




KA 


1360 


inc addr + 1 ;bump page address 


OE 


2000 dey ;bump index 




NL 


1370 


Ida addr+ 1 .continue move 


HP 


201 bp move ;move 20 characters 




KG 


1380 


cmp #$cO ; up to 


PL 


2020 pla ;restore 




LC 


1390 


bmi xfer ;$bfff 


OH 


2030 tay ;regfsters 




Fl 


1400 


da #$4c ;jmp instruction op code 


ML 


2040 pip 




BL 


1410 


sta palchi ;store the jumps for the 


ih 


2050 rts ;done 




GG 


1420 


sta patch2 ;patches 


CI 


2060; 




GO 


1430 


fda #<fix1 ;jumptofix1 at start 


AL 


2070 ;pu1 user's screen conten s back 




Ml 


1440 


sta patch 1 -i-l 


FK 


2080 ;after collector is done. 




HE 


1450 


da #>fix1 


AK 


2090; 




EK 


1460 


sta patch 1 + 2 


HF 


21 00 msgoff php ;save 




KL 


1470 


Ida #<tix2 ;jumptofix2atend 


KL 


2110 pha 




GL 


1480 


sta patch2 + 1 


AM 


2120 tya iregisters 




BH 


1490 


da #>fjx2 


OM 


2130 pha 




OM 


1500 


sta patch2-f 2 


LH 


2140 Ida #10 ;1 1th character 


1 


IH 


1510 


Ida #$ef ;map 


Jl 


2150 sta screen ;on screen 




LI 


1520 


sta $00 ;out 


CD 


2160 Ida hibase ;screen page 




00 


1530 


Ida $01 ;the basic 


AG 


21 70 sta screen + 1 ;address 




NA 


1540 


and ^$fe ;rom 


HL 


' 2180 dy #19 ;20characlers 




LM 


1550 


sta $01 


NG 


2190 restor da buffer,y ;puttext 




JE 


1560 


Ida #01 initialize 


JL 


2200 sta (screen),y ;back 




lA 


1570 


sta color ;color to white 


JA 


2210 Ida cbutf,y ;restore 




HF 


1580 


rts ;end init 


AB 


2220 sta cmem.y ;co ors 




MK 


1590: 






ED 


2230 dey ;bump index 




KN 


1600 


patch hand er 


OF 


2240 bp restor ;restore 20 characters 




AM 


1610: 






FK 


2250 pla ;reslore 




MB 


1620, 


fix1 = 


-- patch to start of fnputor 


DK 


2260 tay 




EN 


1630; 






HC 


2270 pa ;regfsters 




EH 


1 640 fix 1 


jsr msgon ;display message 


MK 


2280 pip 




EF 


1650 


Idx $37 ;finish displaced basic 


IG 


2290 rts ;done 




DM 


1660 


Ida $38 ;code 


CH 


2300; 




GP 


1670 


jmp retl ;return to basic 


EE 


2310messag .asc " >wait,syslem busy< " 




GA 


1680; 


1 




Gl 


2320 ; 




EM 


1690; 


,fjx2 = 


-- patch to end of inputor 


LN 


2330 ;data storage - 40 bytes at S02a7 




KB 


1700: 






KJ 


2340; 




Jl 


1710fix2 


da $4f jfinish basic's 


PF 


2350* = $02a7 




OA 


1720 


ora $4e ;stuff 


OK 


2360; 




DF 


1730 


beq retrn ;done inpution 


DF 


2370 buffer * = *+20 




PP 


1740 


jmp cent ;continue inpution 


AO 


23S0cbuff ♦ = ''+20 




DC 


1 750 retrn 


jsr msgoff ;pu screen back 


MM 


2390; 


1 


JN 
AG 


1760 
1770; 


jmp quit ;inputordone 


MD 


2400 .end 
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SYS 65478: Taking A 
New Look at an Old Dog 



Miklos Garamszeghy 

Toronto, ON 



. . .the KERNAL CHKIN routine can be put to some much less obvious uses. . 



SYS 65^78 (that's J5R $FFC6 to you machine language fans) seems 
like an innocent and well documented rouline. Opening a file as an 
input channel What could be simpler? While this may be its normal 
use from within a program, the KERNAL CHKIN routine can be put 
to some much less obvious uses in immediate mode. One ol the 
more interesting of these enables a Commodore 64 or 128 (and 
other C6M machines with a similar KERNAL structure) to execute a 
series of commands contained in a disk file, similar to an MS-DOS 
batch fife or a CP/M submit file. 

The CHKIN routine resets the input device flag (normally to 
indicate the keyboard) at zero page location hex $99 (on the VIC-20, 
C-64 and C-128). $AF (on the BASIC 2.0/4.0 PETS), $A1 (on the B 
series) or $98 {on the Plus/4 and C-1 6) to a value corresponding to 
Ihe device from which normal input would be received. The main 
BASIC immediate mode input loop checks this location before 
trying to fetch an input byte, if Ihe value is 0. a normal entry occurs 
by fetching a byte from the keyboard buffer. However, if the value is 
8, for example, the fetch routine will attempt to read a byte from 
serial port device 8 (usually a disk drive). If device 8 has an open file 
capable of giving output, a byte is read from this file and placed in 
BASICS input buffer, just as if it had been entered from the 
keyboard. If a carriage return is encountered, the commands 
contained in the input buffer are executed, assuming there is no line 
number at the beginning. Thus you can execute commands con- 
tained in a disk file. It should be noted that even with normal input 
redirected to respond to an external device, the keyboard is still 
scanned by the IRQ routines and the results placed in the keyboard 
buffer only, up to the maximum number of characters allowed for 
the buffer BASIC'S input editor will not see any of these characlers 
until control has been restored to the keyboard. 

So what, you say? Everyone knows an easier way to do that: It's 
called a program or PRO file. Let's make one thing perfectly clear. 
Executing what I call a sequential disk command (SDC) file is not 
the same thing as LOADing and RllNning a disk PRO program file. 
There are several major differences; A regular PRG type file contains 
a series of lokenized BASIC lines (complete with link addresses and 
line numbers) or machine language op codes. The sequential disk 
command file, on the other hand, contains a series of immediate 
mode commands written out in plain English, just as you would 
type them in from the keyboard. In addition, a PRG file must be 
resident in RAM for execution. In most 8 bit computer operating 
systems [Commodore KERNALs included), only one program can 
be in memory for execution at a given time (assuming that you have 
not artificially partitioned the memory into separate work spaces.} 
An SDC-lype program is not memory resident! It resides entirely in 
a disk file and is called up and executed statement by statement, 



without affecting any program{s) stored in the computer's main 
RAM unless you deliberately wani to. However, since it resides on 
disk, an SDC program usually takes longer to execute than a RAM 
resident program because of Commodore's notoriously slow disk 
access speeds. 

SDCs are useful as utility and easy to use reference data files since 
they can be called up and executed without fear of erasing main 
computer memory. This allows a programmer to interrupt work, call 
up and consult an on line data table, for example, and then resume 
(he task at hand, all with relative ease and speed. SDCs can also be 
used for storing customized keyboard macros. (For those unfamiliar 
with the concept, a keyboard macro is an often lengthy and/or 
complicated series of frequently used keystrokes/ commands that 
can be automatically invoked by using a shorter, easier to remem- 
ber key sequence.) These can be very useful for setting up sprites, 
sound and graphics on older CBM machines such as the C-64 that 
lack high level commands for doing so. (Can you honestly remem- 
ber the POKE sequence to play the first few bars of HAPPY 
BIRTHDAY on the C-64?) 

Setting up an SDC 

A sequential disk command file is very easy to create. You use your 
favourite word processing program to create a SEQ file containing a 
series of immediate mode BASIC commands, just as you would type 
them in to execute from the keyboard. BASIC keywords (such as 
PRINT) can be entered in either their long or abbreviated forms. Of 
course, the same limits on line length as for normal programming 
apply to the lines in your SDC file (e.g. 80 characters for the C-64, 
160 characters for the C-128, etc). This is a restriction imposed by 
the size of the input buffer on the computer. 

Any immediate mode command can be used except for disk access 
commands. You should not use OPEN, LOAD, SAVE, DIRECTORY, 
etc. because these commands will reset the input device to the 
default keyboard value after they have executed, thus cutting off the 
rest of your command file. A DIRECTORY can be used as the last 
item in an SDC because it will return control to the keyboard upon 
execution, which is desirable in this case. 

The program mode only commands, such as INPUT, GET, GOTO, 
GOSUB, etc., cannot be used in SDCs because an SDC is executed 
in immediate mode, not under program control. 

In order to be properly interpreted when they are read in, the BASIC 
keywords must be typed in a style that allows them to be saved as 
un-sbifted PETSCll characters in a disk file, (This is the way that 
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you would normally enter them from !he keyboard.) With most 
word processors, such as PaperClip or Pocket Wriler-128, this 
means that they are typed in lower case only and the file is saved as 
a SEQ file. With word processors such as Timework's Word Writer 
1 28. which save text in true ASCII format, the BASIC keywords must 
be entered in UPPER CASE only. Word processors that use PRG 
type screen code files only should not be used for creating SDCs. 

Making a graceful exit from an SDC back to keyboard input can be 
somewhat tricky The easiest way is to include a statement at the 
end of your SDC which POKB5 a value back into the input device 
flag location described earlier. Simply CLOSEing the disk file from 
within tlie SDC or using the BASIC commands END or STOP, wi31 
not return control to the keyboard because they do not automati- 
cally reset the input device flag. Another way to exit is to include a 
garbage statement or deliberate syntax error as the last line. Upon 
reaching such an error, the SDC will crash and control will be 
returned to the keyboard. The least elegant way to exit is by the 
familiar <RUN-STOP>/<RESTORE> key combination. Crude but 
effective. 

Once the SDC has been entered, it should be saved as a SEQ disk 
file with an appropriate name. 

Executing the SDC 

Now comes the fun part. Executing the SDC is really quite simple. 
All that is required is to open the disk file in immediate mode with a 
statement such as: 

OPEN 1,8,8/ filename" 

Second, you must activate the CHKIN routine. On the C-128, with 
the above OPEN statement you would use; 

SYS 65478.0,1 

With a C-64 or similar type machine, a double statement is 
required: 

POKE 781,1 
followed by; 

SYS 65478 

The commands in the SDC will then be executed, one line at a time 
until control is returned to the keyboard by one of the methods 
previously outlined. You will note that the actual commands are not 
printed to the screen before they are executed, but the " READY, " 
message is printed after each line has been executed. Once the SDC 
has finished executing, the disk file should be closed with a 
DCLOSE or CLOSExx as applicable for your machine. 

SDCsontheC-128 

The Kernal input routine will accept line numbers in SDCs. These 
line numbered files will " execute " exactly as if the hne, complete 
with line number, had been entered from the keyboard. That is, it 
will be added to any program currently in memory This little trick is 
a simple yet powerful way to MERGE two or more program files on 
the C-128, Unlike other pseudo merge routines which merely 



append one program to the end of another, this technique allows full 
inlermeshing of line numbers. Only a few steps are required. First, 
LOAD one of the programs into memory in the normal manner. 
Next convert it into a SEQ disk file listing with a series of commands 
such as: 

OPEN 8,8,8, ^ 0:filename,S,W " :CMD8:LIST 
PRINT#8;CLOSE8 

LOAD in the second file. With the second file now in memory, 
activate the SEQ listing of the first file a,s a SDC as outlined above. 
The programs will now be MERGEd, The merge will terminate with 
a mysterious " OUT OF DATA ^' error message. This is a good sign: 
the process worked. The error message is caused by the last line of 
the listing in the disk file - " READY, " . (Commodore BASIC listings 
always include this.) The computer, not being able to recognize its 
own writing, thinks that someone typed in " READ Y " , Since there 
are no accompanying DATA statements, the out of data error occurs 
and control is restored to the keyboard. If the READY, message did 
not appear at the end of the listing (for example if you edited it out 
with a word processor to give it a neater appearance), keyboard 
control would only be restored with a <RUN"STOP>/ 
<RESTORE>, The programs will, however, be merged correctly. 
This technique can also be used for "loading" program listings 
produced on machines with incompatible keyword tokens and 
programs transferred into SEQ files via a modem download. 

Example SDCs 

LISTINGS 1, 2 and 3 are short examples of SDCs. While it may 
appear that some of the statements are repetitive, it should be 
remembered that they were created with a word processor, (If your 
word processor does not have cut, paste and copy commands, then 
perhaps it is time to splurge for a new one!) 
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LISTING 1 is an example for the C-64 or C-1 28 (in 40 or 80 column 
mode) that prints out a simple calendar for the month of April, 1 987. 
You will note that most of the lines begin with the sequence " print 

up$". ''up$" is defined in the first line as three cursor ups. This 
allows you to get around the nasty habit of immediate mode BASIC 
of printing a few carriage returns and a READY after each line it 
executes. up$ is included to properly format the screen display in 
this case. Note also that special control characters are given as their 
CHR$0 values. This is the only way to enter them with a word 
processor. 

LISTING 2 will print out a handy hex-dec conversion chart on the 
80 column screen of the C-128, It is similar in nature to the above 
example, but works in C-l 28 FAST mode. The 80 column screen is 
required because of the width of the table. 

The final example, LISTING 3, is interesting for several reasons. It is 
essentially a self-contained data file that can read and display itself 
on the screen automatically! The WAIT and POKE values of 208 in 
the lines are set up for a C-128, For a C-64, change all of the 208s to 
198s. This is the location of the keyboard buffer flag that indicates 
the number of characters in the buffer. The file will display one 
entry at a time and wait for you to press a key before displaying the 
next entry. (Remember, the keyboard scan and buffer filling still 
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occurs when an SDC is being executed even if its input is 
Ignored by the BASIC input routine, hence the need to 
clear the buffer by POKEing a to it before reading the 
next entry.) To stop the display before it reaches the end. a 
<RUK-STOP>/<RESTORE> should be used. This last 
example demonstrates that, although you cannot read the 
keyboard directly with GETs, INPUTs, etc, you can still 
obtain data from the keyboard via direct PEEKs and 
POKES to the keyboard buffer areas. 

Variations on a Theme 

The re-directed input is not limited to disk files. The 
procedure works equally well with the user port. You 
could, in theory, control your computer in immediate 
mode from a remote location with an external keyboard 
or even a modem and an auxiliary terminal. 



Listing l:forC-64orC-128 

up$ - chr$(1 45) + chr$(1 45) + chr$(145);poke53280,6:poke53281 ,6 
:printchr$(147)chr$(5);print up$ " [13 spcs]august 1 987 " 
print upS" sun mon tues wed thur fri sat 

print up$ " + + + + + + + + " 

print up$' 1 

print up$ " + + + + + + + + ' 

print up$" 2 3 ■ 4 5 6 7 8 " 

print up$ ' + + + + + + + + ■ 

printupS" 9 10 11 12 13 14 15 " 

print up$ " + + + + + + + + " 

printupS" 16 17 18 19 20 21 22 ' 

printupS' + + + + + + + + ' 

printupS' 23 24 25 26 27 28 29 ' 

print up$ " + + + + + + + + " 

print up$" 30 31 

prim up$ " + + + + + + + + ' 

poke 1 53,0 



Listing 2: for C- 128 (80 column only) 

ijp$ = chr$(145) + ctir$(145) + chr$(145):printchr$[147)chr$(5);:fast 
print up$ " [9 spcs]hex-dec converter " 



print up$ " 
printupS" + 
print up$ " 
print up$ " 
print Lips " 
printupS" 
printupS" 
print up$ " 
print up$ " 
print up$ " 
print upS" 
print up$ " 
printupS" 
printupS" 
print up$ " 
prim upS " 
printupS" 
printupS" 



00 
10 
20 
30 
40 
50 
60 
70 
80 
90 
aO 
bO 
oO 
dO 
eO 
fO 



00 

+ — + 



16 

32 

48 

64 

80 

96 

112 

128 

144 

160 

176 

192 

208 

224 

240 



01 02 03 04 05 06 07 08 09 Oa Ob Oc Od Oe Of 



+ 



+ 



+ 



+ 



+ 



+ 



+ 



+ 



+ 



+ 



1 

17 

33 

49 

65 

81 

97 

113 

129 

145 

161 

177 

193 

209 

225 

241 



print upS:siow;poke 153,0 



2 

18 

34 

50 

66 

82 

98 

114 

130 

146 

162 

178 

194 

210 

226 

242 



3 

19 

35 

51 

67 

83 

99 

115 

131 

147 

163 

179 

195 

211 

227 

243 



4 

20 

36 

52 

68 

84 

100 

116 

132 

148 

164 

180 

196 

212 

228 

244 



5 

21 

37 

53 

69 

85 

101 

117 

133 

149 

165 

181 

197 

213 

229 

245 



6 

22 

38 

54 

70 

86 

102 

118 

134 

150 

166 

182 

198 

214 

230 

246 



7 

23 

39 

55 

71 

87 

103 

119 

135 

151 

167 

183 

199 

215 

231 

247 



8 

24 

40 

56 

72 

88 

104 

120 

136 

152 

168 

184 

200 

216 

232 

248 



9 

25 

41 

57 

73 

89 

105 

121 

137 

153 

169 

185 

201 

217 

233 

249 



10 

26 

42 

58 

74 

90 

106 

122 

138 

154 

170 

186 

202 

218 

234 

250 



11 

27 

43 

59 

75 

91 

107 

123 

139 

155 

171 

187 

203 

219 

235 

251 



12 

28 

44 

60 

76 

92 

108 

124 

140 

156 

172 

188 

204 

220 

236 

252 



13 

29 

45 

61 

77 

93 

109 

125 

141 

157 

173 

189 

205 

221 

237 

253 



14 

30 

46 

62 

78 

94 

110 

126 

142 

158 

174 

190 

206 

222 

238 

254 



+ 



15 

31 

47 

63 

79 

95 

111 

127 

143 

159 

175 

191 

207 

223 

239 

255 



Listing 3: for C-128 {for C-64, change all 208s to 198) 



up$ = chr$(145) + 
print UpS " 
print UpS" name, 
printupS" name: 
printupS' name: 
printupS" name: 
printupS" name: 
printupS' name: 
printupS' name: 
poke 153,0 



chrS(145):printclir${147)chrS(5); 

mini phone file "iprint 
John doe plione: 123-456-7890 
mary brown phone:123-456-7890" : 



jim smitli 
jane green 
bill biack 
fred riglit 
sally ho 



phone:123-456-7890": 
phone:123-456~7890': 
phone:123-456-7890": 
phone:123-456~7890': 
|:^one:123-456-7890': 



wait 208.1 
wait 208,1 
wait 208,1 
wait 208,1 
wait 208,1 
wait 208,1 
wait 208,1 



:poke208,0 
:poke208,0 
:poke208,0 
:poke208,0 
:poke208,0 
:poke208,0 
:poke208,0 



The TIansactor 



35 



September 1987: Volume S, Issue 02 



Kernal LISTEN 
And Its Relatives 



Eric Germain 
Ste-Foy, Quebec 



In Volume 6, Issue 05 of The Transactor, an article, 'Assembly 
Language Disk Access', written by Richard Evers, was published. 
This article talks about the techniques used to communicate 
through the serial bus. The methods presented make use of some 
Kernal routines: OPEN, CLOSE, CHRIN and CHROUT among 
others. The use of these techniques offer many advantages. First, 
you don't liave to worry about the various parameters needed to 
communicate; you just have to specify the device number, the 
secondary address, the logical file number and the filename, while 
the computer calls the specified device by sending individual bit 
patterns on the bus and getting ones from the device. 

The second advantage is that once you have opened a file, its 
handling is almost executed the same way as in BASIC. Thus, you 
jusE have to remember its logical file number Everything else is kept 
In tables in RAM which are automatically handled by the Kernal. 

Third, outputing a character is very simple; you put its ASCII code in 
the accumulator and call CHROUT Gettinga character from the bus 
is even more simple since you just have to call CHRIN. 

There are, however, a few drawbacks using these methods. While 
writing some TransBasic modules of my own. I have experieEiced 
associated problems. 

Let's imagine you have written a TransBasic VALIDATE command 
which may look like one of these; 



start Ida #8 
tax 

Idy #15 

jsr Sffba 

Ida m 

jsr $ffbd 

jsr $ftcO 

tdx #8 

jsf $ffc9 

Ida #"v^ 

jsr $ffd2 

jsr $ftcc 

Ida #8 



jsr 

rts 



$ffc3 



;set logical, 

;device 

;and secondary address 
jkernal setlfs 

;nofflename 

; kernal setnam 

;kernal open 

;logiGal file# 

;kernalchkout 

;validate command 

;kernalchroul 

;kernalclrchn 

;fogJcalfile# 

; kernal close 

jreturn to main program 



start 



Ida #8 
lax 

Idy #15 

jsr Sffba 

Ida #1 

Idx #<name 

Idy #>name 

jsr Sffbd 

jsr $ffcO 

Ida m 

jsr $ffc3 
rts 

name asc "v" 



; set logical, 

;device 

;and secondary address 

;kernal setlfs 

;set name length 

;addresslo 

;address hi 

; kernal setnam 

;kernal open 

;logicalfile# 

jkernal close 

;return to main program 

;validale command 



Both listings use the usual machine language method of OPENing a 
file, printing to it via CHROUT, and CLOSEing it. When sending to 
the disk drive a slow-execution command, like VALIDATE, the 
method has a major drawback; the CLOSE command is only 
executed when the drive has finished its work. In other words, 
control is not returned to the main program (in the case of a 
TransBasic commaEid, it's the BASIC itself) until the VALIDATE has 
been completed I 

Also, both listings are about twice as long as they could be. The 
second one is especially deceiving if you are using a mini- 
assembler such as Supermon. since you must find yourself NAME's 
address. 

The Alternative 

There are many ways to get around these problems very easily. But 
fiKt, let's see how do some Kernal routines work. 

The LISTEN routine is used to call a device on the serial bus; It sends 
a LISTEN signal on the bus, along with the number of the device to 
communicate with. The SECOND routine works together with 
LISTEN; it sends a SECOND signal along with a command byte. The 
low nybble of the byte is just the secondary address of the device; 
bits 5 and 6 are always on; bits 4 and 7 are special control bits. 

The TALK and TKSA routines work exactly the same as LISTEN and 
SECOND. The only differences are in the signals sent through the 
bus. When a device receives LISTEN and SECOND signals, it 
prepares to receive data from the bus; when it receives TALK and 
TKSA signals, it prepares to send some dala. 

The OPEN routine works by just calling LISTEN and SECOND: the 
command byte has control bits 4 and 7 set to indicate that a file is to 
be OPENed. Following the command byte is the hlename, if present, 
sent one character at a lime. Then comes an UNLISTEN signal 
{obtained by calling the Kernal routine UNLSN). 

CLOSE works the same way with the difference that no filename is 
sent and that the control bit 4 in the command byte is set OFF (bit 7 
remains ON). 

It appears that OPENing a file is just necessary to tell the device the 
filename you want to use. In the case of the error channel, that one 
used to send VALIDATE commands, there is no filename: you don't 
need to open the channel! And since it's not open, you don't have to 
close It! We can save two major steps by writing our own routines 
using only LISTEN and a few other routines. Try the following: 



start 
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Ida #8 ;device number 

jsr $ffb1 ;kernallisten 

Ida #$6f ;secondary address or $60 

J5r $ff93 ;kernai second 

Ida # " V " ;validate command 

jsr $ffa8 ; kernal ciout 

jsr $ffae ;kernal unlsn 

fts ;return to main program 
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After selling the device number, we .send it ttirough the serial bus by 
calling LISTEN; then, we set the secondary address OR'ed with $60 
(to set bits 5 and G whicli must ALWAYS be on) and send it wltli 
SECOND. These first four instructions do the same job as CHKOUT 
routine, except that you don't have to open a useless file. Short and 
sweet. 




1150data145, 179, 160, 1, 32,215,189,169 
lieOdata 32. 32,210,255, 32,165,255, 8 
11 70 data 32,210,255, 40,208,246, 32,211 
11 80 data 170, 32,225,255,208,208, 32,171 
1190data255, 169, 8, 32, 177,255, 169,224 
1200 data 32,147,255, 32,174,255, 96 



CIOUT works in a very handy way: it will send information on the 
bus to whatever is listening! We can use this feature to perform 
some very convenient data transfers. We could, for instance, tell two 
disk drives, or one drive and a printer, to LISTEN simultaneously, 
and then send some data which will be received by BOTH devices. 
Note that two devices, including the main computer, cannot TALK 
at the same tkne; collision between data would cause a bus crasli. 

Communicating with the printer and the rommand/error channel 
of the disk drive is probably the biggest advantage of the technique 
described above. Communicating with a disk file would, however, 
be a little tedious. It may sometimes be more advised to call the 
OPEN routine rath^jr than sending the filename one character at a 
time. The choice is yours. 

1 have included addresses of the nine major Kernal routines de- 
scribed in the article: 



ACPTR 


$FFA5 


CIOUT 


$FFA8 


LISTEN 


$FFB1 


READST 


$FFB7 


SECOND 


$FF93 


TALK 


$FFB4 


TKSA 


$FF96 


UNLSN 


SFFAE 


UNTLK 


SFFAB 







have included READST in the list because every program should 
use it to check for errors. By the way, before sending any TALK 
signal, you must set the status byte to zero by storing a zero in 
location $90 (decimal 144). 



Listing 1 contains the BASIC loader for the DIRECTORY program. 
Listing 2 contains the commented PAL source listing. Type 
SYS491 52 to see on the screen what you would see by doing LOAD 
" $ " ,8 and LIST. The routine uses all the concepts described in the 
article, plus some BASIC ROM routines to print block counts. You 
can stop it by pressing the STOP key. 

I hope this article will help you to improve your programs dealing 
with the disk drive and the printer, Happy programming! 



Listing 1 : BASIC Loader 

1000 rem save " O:directory 64.ldr " ,3 

1 01 rem * directory demo for the c64 

1020 rem * sys(491 52) to activate 

1030: 

1040 for] = 49152 to 49262: read x: pokej.x 

; Ch = ch + x: next 
1 050 if Choi 5837 then print "checksum error " 

: stop 
1060: 

1070datal69, 8, 32,177,255,169,240, 32 
1080data147,255, 169. 36. 32,168,255,169 
lOQOdata 48, 32,168,255, 32,174,255,169 
llOOdata 8, 32,180,255,169, 96, 32,150 
11 10 data 255, 169. 0,133,144, 32,165,255 
11 20 data 32.165,255, 32,211,170, 32,165 
1130data255, 32,165,255, 32,165,255,168 
IMOdata 32,165,255,166,144,208, 31, 32 



DG 
EH 
FM 

KH 

BL 

AA 

IJ 
JE 
EJ 
FN 
AE 
OL 
LN 
DM 
AF 



KE 
HB 
JF 

HN 
DD 
LA 
KJ 
JA 
JJ 
CB 
EH 
IM 
PG 
ME 
LK 
Bl 
BD 
MB 
EA 
OM 
BL 
AD 
AH 
EE 
CE 
ON 
EB 
lA 
AJ 
NM 
HK 
NF 
JD 
MJ 
PP 
OP 
Dl 
PC 
KG 
Dl 
GK 
HA 
CA 
NM 
FL 
IN 
FD 
U\ 
GP 
MC 
EM 
MF 
JO 
lA 
FP 
LG 
PO 
U 
FK 
P] 
IP 
HC 
IB 
CE 
ON 
HP 
MA 
KG 
GA 
KO 
PB 
JK 
MJ 
OL 
IL 
EK 
FO 



$90 ;f lie status variable 

$aad3 .sendchr$(i3) 

fib391 ;fixed-tloa1 conversion 

Sbdd7 ;prini floating pomi value 



Listing 2: PAL Source Code 

1000rems3ve"0:diTeclOrv64.p3r 8 

lOlOrem - by eric ger trial n sle-foy, quebec 

1020 opern 8.8, 1 , " O.direciory 64.obj " 

1030sy^700 

1040 .opt o8 

1050'=Sc000 

1060; 

1 070 status = 

1080 return = 

1090fixril 

llOOshwfIt = 

IllOacptr 

1120 clout 

1130listen 

1140 second = 

11 50 talk 

neoik&a 

llTOunlsn 
nSOuntlk 
1l90crirout = 

1200 srop 

1210; 

1220 ;•* directory read deino 

1230, 

Ida 

jsr 

Ida 

jsr 

Ida 

)sr 

Ida 

j&r 

isT 

Ida 

jsr 

Ida 

jsr 

Ida 



SffaS 
$fta8 
$ftb1 
Eff93 
Sffb4 
Sft96 
SJtae 
$ffab 
$ftd2 
Sflel 



;lnput byte from serial port 

.output byle lo senaJ port 

,set listen 

;send saafier listen 

,set talk 

■send saafier talk 

.command bus to unlisten 

; command bus to unialk 

; output character 

, test [stop) key 



■■ 



1240 
1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420; 

1430 mam 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510, 

1520 

1530 

1540 

1550 

1560 

1570; 

1580 loop 

1590 

1600 

1610 

1620 

1630 

1640; 

1650 

1660 

1670 

1630; 

1690 !lnl 

1700 

1710 

1720 

1730 

1740 

1750 

1760 



sta 

isr 

jsr 



m 

listen 

#SfO 
secorxi 

#'$■ 

clout 

s-o" 

ClOUt 

unfsn 

#6 
taiK 

#$60 

iksa 

#0 

status 

acptr 

acpTr 

return 



; device number 

;and secondary address 

,'or'ed with $fO 

,10 indicate a file to be opened 

;"S0" 

;sent as filenarne 

;ona characier at a time 



;5lop list^riing 

.device number 

;and secondary address 

-^or'ed with $60 

,10 indicate normal l/o operation 

.set siaius word 

;lo zero 

,Qet two dummies 



= ■ 



jsr 
jSr 

jsr 
lay 
jsr 
Idx 

bne 

jsr 
Idy 

isr 
Ida 



acplr 
acpir 
acplr 

acptr 

status 

finl 

fixfll 
#1 

shwfit 
tf 32 
chrout 



;prini carnage reiurn 

;gel two dummies 
;line number (low/high) 



; check status 
;exiton error 

;pul line number in tpacc#1 
; print line number 
;(which is the block count) 
; print a Space 



= ■ 



jsr 

php 

jsr 

pip 

bne 

jsr 

]sr 



jsr 

Ida 

isr 

Ida 

jsr 

jsr 

rls 



acptr ;get characfer 
chrout ;priniit 

;if no n -zero llien continue 



loop 

return 

stop 
n^ain 

• 

untik 

#8 

I isle n 
#SeO 
second 
unlsn 



;prini carnage return 
;check stop key 



:un-lalk 



;lhe secondary address 

;is'or'edwtlhle0 

,to indicate a file to be closed 

.return to basic 
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Commodore External RAM 
Expansion Cartridges 



Dale A, Castello 
Montgomery, AL 



Transfer commands for your external storage area! 



Editor's Note: Although the 1 700 and 1 750 Expansion RAM 
modules will work on the C64, they draw aboul 200 miiliomps 
and the C64 power supply can not handle the extra load. Should 
you wish to use either of these with the C64. you 7/ need a higher 
output power supply. However, the Commodore 1 764 External 
RAM Expansion comes with a replacement power supply, and 
Dale's software will also work with the 1764. Naturally the 

CI 28 supplies ample power for operating the expansion RAM in 
64 mode with Dales program. 



After many monlhs of anlkipation, the expansion f?AM car- 
tridge for Ihe C128 is finally available at local stores and by mail. 
It comes in two versions: the 1700 contains 128K bytes of 
memory and the 1750 contains 512K: bytes. Only the 1750 is 
readily available. This memory expansion cannot be directly 
addressed like the resident memory banks internal to the CI 28. 
Instead, access is established through the I/O space from SDFOO 
to SDFOA, Because the expansion cards use the computer's 
direct memory access (DMA) capability, a memory bank con- 
taining the CI 28 I/O space does not need to be turned on during 
the actual transfer. Commodore recommends that transfers be 
done with the 1 MHz clock rate so as lo avoid conflicts with the 
memory bus access. Transfers at 2MHz can be done, if the VIC 
screen is blanked and the instruction following the command 
execution does not make a write to memory. 

The card offers four functions: 



(1) FETCH 

(2) STASH 

(3) SWAP 

(4) VERIFY 



transfers from external RAM to internal RAM 
transfers from internal RAM to external RAM 
exchanges internal and external RAM 
compares internal and external RAM 



C128 BASIC implements the first three of these functions. The 
fourth function may be executed through use of pokes in C128 
mode, A program lo implement all four of these functions in C64 
mode is discussed later in this article. 

Physical Layout 



the expansion port. There is no edge connector on the unit to 
permit other bus devices to be plugged into it. Inside the case are 
the DMA controller chip and 16 memory chips. The chips are 
either 64K by 1 bit for the 1700 or 256K by I bit for the 1750, 
Wire straps on the card indicate that Commodore designed the 
circuit card for 1 28K. 256K, and 512K byte configurations. 

Internal Registers And Operation 

The external RAM controller appears at I/O addresses $DFOO 
through SDFOA. Of these eleven addresses in the controller: one 
is for status, three for control, and the rest for addresses. All of 
the registers are read/write except the status register which is 
read only. 

In order to activate an operation, the starting memory locations 
in internal and external RAM, the block size, some special 
options, and the command must be written to the controller. The 
actual transfer occurs either immediately following the write of 
the command or after the next bank switch of the C128. The 
latter feature permits the CI 28 banks lo be reconfigured prior to 
the transfer so that memory under I/O may be transferred. 

The internal computer RAM starting address is placed in 
$DF02/$DF03 in normal low/high byte order The C128 bank 
configuration must be set in $FFOO or in location 1 if you are 
usingaC64. 

The external RAM is banked in increments of 64K bytes. 
Because it is only possible to address 64K memory locations 
using two bytes, the starting location in the external RAM 
requires three locations. The location is given in normal low to 
high order in $DFa4 through $DF06. Ttie values in $DF06 are 
limited to 0-1 for the 1700 and 0-7 in the 1750. If the block of 
data to be transferred extends across a bank boundary, the DMA 
controller automatically increments the bank register. 

The size of the transfer is set In locations $DF07 and $DF08 in 
normal order. TVansfers are limited to 64K bytes with all block 
sizes normal except size value of zero means 64K, 



TTie expansion RAM chips and DMA controller are housed in a The DMA controller also permits an interrupt to be set when it 
C128-colored, plastic unit which is 5 1/4 inches wide and completes its operation. Because the DMA controller disables 
extends 4 1/2 inches behind the computer when plugged into normal CPU processing on the CI 28, this capability is not used 
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on the CI 28. This means the Interrupt must be processed by the 
user's program and will not be handled by the operating system. 
Location $DF09 is the interrupt mask for the controller. It works 
in the same way as the interrupt mask registers on other 1/0 
devices. During a write, mask bit 7 determines if the interrupt 
will be enabled or disabled- Two conditions may be set: bit 6 
causes an flag at the end of an operation and bit 5 sets a flag if a 
verify error occurs. The actual interrupt event is signalled by the 
setting of bit 7 in the status register. A read of $DFOO (the status 
register) will indicate which event caused the interrupt. Bits 6 
and 5 of the status register have the same meaning as in the 
inlerrupt mask register A read of the status register is destruc- 
tive and will clear bits 5-7. 

The status register has one more bit of interest. Bit 4 indicates 
whether a 1700 or 1750 is attached. If the bit is set. a 1750 is 
attached; otherwise, a 1700 is attached. The last two registers 
determine the operation of the controller. The register at $DF01 
is called the command register and the one at SDFOA is the 
address control register. 

During normal operation you will want both the internal and 
external addresses to increment as each byte is transferred. 
There are special cases where you would want to hold one 
address constant, such as a direct transfer with I/O. Bits 6 and 7 
at $DFOA are normally zero which permits both addresses to 
increment, [f bit 7isset, the C128 address will be fixed. If bit 6 is 
set, the external RAM address will be fixed. 

The register at $DF01 is the command register. It is set after all 
the other registers are set and determines the function to be 
performed. All bits must be set during a single write to the 
register. Bit 7 must always be set and it executes the function 
specified by the other bits and registers. Setting bit 5 enables the 
auto-reload feature. This causes the initial internal memory 
start address, the external memory start address, and block 
length to be reset after the function is completed to their values 
before the function. This option is of value if the same addresses 
are used repeatedly, such as the VIC screen in computer mem- 
ory. The user need only set the addresses which change be- 
tween commands. A disadvantage of the auto-reload feature is 
that the reload will occur even after an error is found during a 
verify operation. This destroys the address pointers to the 
errored byte. 

Setting bit 4 enables the bank switch delay. When selected, the 
actual DMA transfer will not occur until the CI 28 bank is set by 
a store to location SFFOO. This is the mode of operation used by 
C128 BASIC- It will not function properly in C64 operation. 
Finally, bits 0-1 of the command determine the function: 

Bit Function 

Transfer from internal to external RAM (STASH) 

1 Transfer from external to internal RAM (FETCH) 

1 Exchange internal and external RAM (SWAP) 
1 1 Compare internal and external RAM 



After an operation is complete, the address registers will ad- 
vance by the length register The length register will be set to 
one unless auto-reload is enabled. If there is a bad byte detected 
during a verify operation, the internal and externa! address 
registers will point to one location beyond the mismatch. 

C«4 Operation 

There are no commands built into the C64 BASIC to support the 
external RAM. Therefore, the program accompanying this ar- 
ticle provides a BASIC extension of four new commands. The 
syntax of the commands is the same as in the C128 BASIC 
except an '^@" has been added in front of each. The "@" is part 
of the keyword and no space should follow it. Any valid expres- 
sion may be used for the arguments. 



FETCH <length>,<C64 addr>,<RAM addr>,<RAM bank> 
©STASH <tength>.<C64 addr>,<RAM addr>,<RAM bank> 
©SWAP <length>,<C64 adrir>,<RAM addr>,<RAM bank> 
©COMPARE <lenglh>,<C64 addr>,<RAM addr>,<RAM bank> 

Where: 

<length> range 0-65535 is size of memory block (0 means 64K} 
<C64 addr> range 0-65535 is starting loc, in computer memory 
<RAM addr> range 0-65535 is slarting loc, in expansion mem. 
<RAM bank>is expansion memory bank range 0-1 for 1700 

range 0-7 for 1750 

The wedge is activated by SYS 52992 and deactivated by SYS 
53020. Care has been taken to permit other wedges to coexist 
with the expansion RAM wedge provided it is the last wedge 
activated. The code has been compacted so that it fits in $CFO0- 

$CFFF. 

Applications 

The application program provided in this article will permit the 
graphics examples contained on the expansion-RAM demon- 
stration disk to be executed on a C64. provided changes are 
nnade to C128 tokens and the graphics screen is properly 
positioned. Other graphics programs may also be modified. The 
author is currently working on a virtual disk which will permit 
some graphics adventure games to be played without disk 
access. 

The availability of the space of three single sided disks at 1 MHz 
transfer rates permits a entirely new realm of games and 
applications to be considered. One application 1 use is to place 
my assembler on RAM and "fetch" it into memory when ever I 
am ready to run it, 1 have also written a package to copy and 
modify text adventure games to use the external RAM, Text 
adventure games which have a lot of disk access come "alive" 
when RAM instead of disk is used. High speed, single drive 
copying of filled, single and double-sided disks without disk 
swapping is great. 
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$DF0O 

$DF01 

SDP02 

SDF03 

SDF04 

$DF05 

$DF06 

$DF07 

tDFOS 

SDF09 

SDFOA 



Sraius 

Command 

CI 28 Start 

Addres.s 

External 

RAM Star) 

Addres,s 

Block 

^ Length 

InlnMask 

AddnCntrJ 



Interrupt 
Execute 



Figure 1: C64/C128 Expansion RAM Register Definition 
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Knd Function 



I 







Reserved 



FixC128Add 



End FuncMon 



FjxRAMAddi 



Verify Error 



Aulo-Lcjad 



512k RAM 



NoSFFOO 



Version Number 



Reserved 



Reserved 



Low-Bvie 



High-Byle 



Low-Byte 



High -Byte 



Batik-Byte 0-^1(1700) 0-7(1750) 
Low-Byte (SOQOO means SI 0000) 
High-Byte 



Verify Error 



reserved 



reserved 



Transfer Type 0-3 



Expansion RAM Commands: BASIC Loader 



LN 
KF 
HL 
HF 
OF 
PJ 

LD 

GO 

KO 

^ ^ 

GJ 

GF 

EN 

FC 

LI 

JK 

lA 

FE 

LP 

PH 

ID 

AP 

MK 

FG 

JA 

JD 

DE 

IN 

OM 

CE 

EP 

JN 

MN 

OD 

AF 

01 

EE 



1000 rem save' '0:xram64.bas' ',8 
1010 rem *• this program will create 
1020 rem ** a load and run module on 
1030 rem -* disk called ' 'xram64.obj' ' 

1040 open 15,8,15: open 8,8,1,' ■0:xram64.obj" 
1 050 input#1 5,e,e$,b,c: if e then close 15 

: print e;e$;b;c: stop 
1 060 for j = 52992 to 53244: read x: print#6,chr${x); 

: ch = ch + x: next: closes 
1 070 if ch<>30308 then print ' 'checksum error!' ' 

: stop 
1080 print ' '•■•finished! •*' ' 

1090 print ' 'load xram64.obj,8,1 and sys52992 to enable 
1 1 00 print ' 'sys53020: rem to disable' ' 
11 10 end 
1120: 

11 30 data 0,207,162, 70,160,207,204, 9 
1140data 3,240, 18,173, 8, 3,141, 68 
1 1 50 data 207, 1 73, 9, 3,141, 69, 207, 1 42 
lieOdata 8, 3,140, 9, 3, 96,174, 68 
1 1 70 data 207, 1 72, 69, 207, 200, 240, 7, 136 

8, 3,140, 9, 3, 96, 83 
65, 83,200, 70, 69, 84, 67 
83, 87, 65,208, 67, 79, 77 
65, 82,197, 0, 76,255,255 
0,132, 2,200, 177,122,201 
1230 data 64,208,242,162, 0,200,177,122 
1240 data 56,253, 45,207,208, 3,232,208 
1250data244, 56,233,128,208, 2,240, 17 
1260 data 189, 45,207, 48, 5,240,214,232 
1270data208, 246. 230, 2,232, 160, 1,208 
1280 data 220, 200, 152, 24,101, 122, 133,122 
1290 data 144, 2,230,123, 32,245,207,140 
1300 data 7,223,141, 8,223, 32,242,207 
1310data140, 2,223, 141, 3,223, 32,242 
1320 data 207, 140, 4,223,141, 5,223, 32 
1330data242, 207, 201, 0,240, 3, 76, 72 
1340 data 178, 173, 0,223, 41, 16,240 4 
1350 data 192, 8, 144, 4, 192, 2, 176, 238 
1360data140, 6,223,165, 2,160, 0,140 



HL 
EF 
EF 
MJ 
AJ 
GP 
JM 
OB 



I 1 



1180 data 142, 
11 90 data 84, 
1200 data 200, 
1210 data 80, 
1220 data 160, 



1370 data 10,223, 140, 9,223,120,162,245 
13B0datal64, 1,134. 1, 44, 0,223, 9 
1390 data 144, 141, 1.223,165,122,208, 2 
1400data198, 123, 198, 122,173, 0,223, 141 
UlOdata 12, 3,173, 2,223,141, 13, 3 
1420datal73, 3,223,141, 14, 3,132. 1 
1430data 88, 76, 67,207, 32,253,174, 32 
1440 data 158, 173, 76,247,183 



EN 

GF 

LJ 

HN 

DO 

HD 

KJ 

LH 

IP 

PB 

CM 

IP 

LJ 

DB 

KO 

CF 

KC 

HO 

MN 

CN 

GC 

NA 

ND 

MM 

JK 

JG 

MP 

KN 

PO 

Al 

EE 

FN 

OJ 

FF 

JD 

LB 

GM 

CA 

KN 

GG 

DE 

FD 

LM 

NN 

DO 



PAL Source Listing 

lOOOremsave '0.>;ram64 pal' ',a 

lOTOrem -t pal 64 formal *»< 

1020 open 8,e,i; ■0.'(rain64.obj" 

1030sys700 

1040.opfoe 

1050 -=$0100 

1060, 

1070; a program loimplemenLexlernal 

1 030 ; ram function on a c-64 or 

1090;cT3ejrrc64mode 

1100, 

11 10. dale a ca&tello 

1120:5964 oakleighrd 

n30;mon1gomeryat36n6 

1140, 

1 1 50 ; implements basic e>!tensions 

1 160 , @sia$h <b/tes>,<aadrl >,<ad<Jr2>,<bank> 

1170; @!etch <bytes>,<aadrl >,<addr2>,<bank> 

1 1SO ; ©compare <byles>,<addrl >,<addr2>,<bank> 

1190;@swap<bvtes>,<addr1>,<addr2>,<tmnk> 
1500; 

T210; where 

1220;<bVles> = number ot bytes to (ran^fer 0-65535 

1230; => 65536 bytes 

1240,<addr1> =. computer start address 0-65535 

1250; <addr2> = ram start address 0-65535 

1260,<bank> = ram bank number 

1270; 0-1 for 1700 

1280; 0-7forl75O 

1290; 

1300; activate sys 52992 (tcf 00) 

1310; deaGlivatesys53020($ct1C) 
1320; 

1330; on exit 

I340;areg siatus $20 okay 

1350; $40 verity error 

1360; 

1 370 ; xfsg/yreg last computer address 
13B0; 



1390cmd 
1400txtptr 
1410 areg 
1420 xreg 
1430 yreg 
1440 igorie 



2 
S7a 

$30c 
$30tJ 
$30e 
$308 



, ex pans ion command 
;current byie of basic text 
.siorage of areg 
;storageof « reg 
;siorage of y reg 
; basic loken evai 
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1 


PL 


1450exp 


> 


SdtOO 


,dma controller 




OJ 


1460C64 


±= 


exp + 2 






DF 


1470 ram 


^ 


exp-i-4 






LA 


1430 bank 


= 


exp + 6 






LK 


1490 leng 


^ 


exp + 7 






CF 


1500, 










JL 


1510 active 


= ■ 








iP 


1520 


Idx 


#< parse 






CA 


T530 


Idy 


#> parse 






LN 


1540 


cpy 


igone + 1 


; if page Set 


1 


PD 


1550 


beq 


tnpl ' 


.already installed 




01 


1560; 










HG 


1570 


tda 


igone 






KG 


1580 


sta 


ddvec + 1 






HI 


1590 


Ida 


igone + 1 






CI 


1600 


Sta 


Oldvec + 2 






JC 


1610 


stx 


igone 






DE 


1620 


Sly 


igone + 1 






EN 


1630. ' 


E 








JN 


1640 inpl 


^ * 








OF 


1650 


rts 








CP 


1660 










ML 


1670inact 


^ * 






\M0 


1680 


Idx 


oldvec + 1 






OP 


1690 


Idy 


oldvec + 2 






DE 


1700 


iny 




;it Efl IS hi addr 




FD 


1710 


beg 


nogo 


;don'l restore 




OC 


1720; 










NH 


1730 


dey 








LK 


1740 


stx 


igone 






FM 


IT'V) 


Sly 


igone -f 1 






GF 


1760: 










JK 


1 770 nogo 


^ * 








AG 


1780 


rts 








EH 


1790, 










HS 


1800 table 


= ■ 






1 


EH 


1010 


.asc 


' 'stas' ' 






AD 


1830 


byle Sc8 






GF 


1830 


.asc 


■ 'telC ' 






EE 


1840 


-byle $c8 






ML 


1850 


.asc 


■ 'swa^ • 






EF 


1860 


by It 


!SdO 






HN 


1870 


asc 


' compar' ■ 






BF 


1880 


.byte $c5,0 






IN 


1890. 










LB 


ISOOoldvec 


^ * 








LE 


1910 


jmp 


$m 


;addfess set to old error <<. 




GP 


1920; 










IN 


1930 parse 


= + 








HJ 


1940 


Idy 


#0 


;scan basic text 




OF 


1950 


sty 


cmd 


; initial command number 




NO 


1960 


iny 




;pointto next character 




CL 


T970 


Ida 


(i^'plr),y 






fB 


1980 


cmp 


ff"@" 






NN 


1990 


bne 


oldvec 


;no leading @ 




GE 


2000; 










CF 


201O 


Idx 


#0 


;init table pointer 




KF 


2020; 










MO 


2030 nxt 


^ - 








GP 


2040 


iny 




;ge1 next input character 




CA 


2050 


Ida 


(Txlptr).y 






Nl 


2060 


sec 








PA 


2070 


sbc 


table, X 


;check lexL 




MK 


2oeo 


bne 


last 


;jnay be shifted 




AK 


2090; 










HL 


2100 


inx 




.okay so far 




PN 


2110 


bne 


nxt 


;i00p for next match 




OL 


2120; 










FL 


2130 last 


= A 








EO 


2140 


sec 




.check for shifted 




iL 


2150 


sbc 


#$80 


;checkfor shilted 




JG 


2160 


bne 


skip 


; character 




AP 


2170; 










KM 


2ieo 


beq 


found 


;matchs string 




EA 


2190; 










NO 


2200 , nomalch found 90 advance to 




HC 


2210; nexT command string 






cc 


2220; 










JB 


2230 sl<ip 


= " 








JJ 


2240 


Ida 


table, X 






FB 


2250 


bmi 


nxcmd 


; reached shitted char 




KE 


2260; 










KJ 


2270 


beq 


oldvec 


.error end of table 




OF 


2280: 










OM 


2290 


inx 








GH 


2300 


bne 


skip 


;keep going 




MH 


2310; 










CD 


2320 nucmd 


a > 







PD 


2330 


inc 


cmd 




AA 


2340 


inx 






CB 


2350 


Idy 


#1 


;dirTnn basic text 


JH 


2360 


bne 


nxt 


isearch next command 


JL 


2370; 








NM 


2360 ■ we have found the match 




EU 


2390 ; read parameiers 




GN 


2400; 








ON 


2410 found 


= * 






KD 


2420 


iny 




;update basic pointer 


FD 


2430 


tya 






OP 


2440 


dc 






EC 


2450 


adc 


txtptr 




KH 


2460 


sia 


txlplr 




AL 


2470 


bcc 


nopage 




GC 


2480; 








MD 


2490 


inc 


txtptr + 1 




KD 


2500. 








JK 


2610 nopage 


1 9 * 






Kti 


2520 


jsr 


geiint 


;gel # bytes 


JO 


2530 


sty 


leng 




FK 


2540 


sta 


leng + 1 




Bl 


2550 


jsr 


arg 


;get c64 memory siari 


BF 


2560 


St/ 


c64 




EN 


2570 


sia 


C64 + 1 




KC 


2580 


jsr 


arg 


;aet exiernai ram start 


PN 


2590 


sty 


ram 




CG 


2600 


sta 


ram + 1 




IB 


2610 


jsr 


arg 


;get bank 


lO 


2620 


cmp 


#0 


; check it out of range 


KB 


2630 


beq 


limit 




GM 


2640; 








ED 


2650 toobig 


= ■ 






AA 


2660 


jmp 


Sb24e 


.iHegal quantity 


EO 


2670, 








GN 


2660 limit 


= + 






HK 


2690 


Ida 


exp 




LM 


2700 


and 


#$10 


icheckram size 


HF 


' 2710 


beq 


r12e 




GB 


2720; 








BE 


2730 


cpy 


m 


;maxbankfor512k +1 


NN 


2740 


bcc 


inside 




ED 


2750; 








HG 


2760 r1 28 


. 4 






KF 


2770 


cpy 


»2 


;max banklor 128k +1 


10 


2780 


bcs 


loobig 




MF 


2790; 








MM 


2800 inside 


= • 






KN 


2810 


sty 


bank 




JA 


2820 


Ida 


cmd 




JF 


2830 


Idy 


ffO 




OF 


2840 


sty 


exp + 1 


;inc pointers 


OB 


2650 


sty 


exp + 9 


;no interiupia 


Fl 


2860 


sei 


,open ram 




HO 


2870 


Idx 


#SI5 


;under basic and kernel 


NK 


2880 


Idy 


1 


;old value 


IN 


. 2890 


stx 


1 


;temp vaJue 


PD 


2900 


bii 


exp 


; reset dma controller 


DD 


2910 


era 


#S90 


;form command 


CL 


2920 


sia 


exp+1 




JK 


2930 


Ida 


txtptr 


;dim in base text 


KO 


2940 


bne 


notb 




MP 


2950: 








BO 


2960 


dec 


txtptr + 1 


;page boundry 


AB 


2970; 








OC 


2980 notb 


^ * 






MH 


2990 


dec 


txtptr 


;singEe byle 


DL 


3000 


Ida 


exp 


; return result 


ID 


3010 


sta 


areg 




DH 


3020 


Ida 


c64 


;return last address 


KL 


3030 


sta 


xreg 


; accessed in computer 


MG 


■ 3040 


Ida 


c64-f-1 




IH 


3050 


eta 


yreg 




LP 


3060 


Sly 


1 


; restore ram conftguratron 


JP 


3070 


cli 




;hnterrupts on 


OK 


3080 


Knp 


oldvec 


;back to basic 


l\ 


3090; 








HG 


3100 ; sub routine to evaluate argument 


MJ 


3110; 








OM 


3120 arg 


. • 






HP 


■ 3130 


jsr 


Saefd 


;musi have comma 


KL 


3140; 








DC 


3150getint 


- • 






FD 


3160 


fsr 


SadOe 


.evaf expression 


LA 


3170 


imp 


$b7f7 


;f IX It 


CO 


3180; 








CF 


3190 end 






""" 
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In The CP/M Mode 



Clifton Karnes 
Greensboro, NC 



I'd like to discuss several things in Ihis article. First, there are some 
exciting software packages in the public domain, including an 
excellent text editor/word processor and a spelling checker. Sec- 
ond. I want tu talk about configuring your C128 CP/M keyboard 
with KEYFIG (transient utility on the CP/M system disk). Believe 
me, if you're not using KEYFIG, youVe working too hard. Third, I 
want to djscuss some commercial CP/M packages that i think CI 28 
CP/M users will be interested in. 

VDE2.2 

This public domain text editor is the latest in the line that began with 
Ihe famous VDO (for Video Display Oriented} in 19S2. Before VDO. 
most text editors were line oriented. It you've agonized over CP/M's 
ED you know what a line oriented editor is — it's a pain. (You may 
have heard the CP/M cry, "Better dead than ED/') VDO changed 
all that 

The original VDO was developed by Richard Fobes and published in 
the September and October 1982 issues of Byte. Soon after, varia- 
tions and improvements began to appear. The latest VDO is James 
Whorton's VDO 2.5(b), which I used before discovering VDE, 

VDE has its roots in VDO but is so much enhanced that its author, 
Eric Meyer, decided that it was best to change the name slightly and 
call it VDE. VDE 2.2 was completed August 1986, so is quite recent. 
It is a 58K library file which contains two versions of VDE: VDE-M, 
for memory-mapped systems, and VDE, for terminals (the version 
Ihe C128 uses). In its distributed form VDE is configured for an 
Osborne, but thanks to the 1 28^s extended terminal emulation, this 
version works fine. 

Why VDE? 

What's so good about VDE? First, it's only 9K. This means it doesn't 
take up much disk space, and it loads quickly. When you're doing 
program development and going back and forth in the edit/ 
compile/link/ run cycle, this fast loading can be a tremendous time 
saver, VDE is also fast working and full-featured, h has full-screen 
editing, windowing, horizontal scrolling, automatic pagination 
(which can be turned off), file directory, block operations, macro 
functions, find/replace, undelete, several user definable options, 
and (I've saved Ihe best for last) VDE has word processing capabili- 
ties. The word processing may only consist of word wrap and some 
simple formatting, but it is all many people will ever need, and It's 
all most people need most of the lime. 

The three VDE files that are important to C128 users are VDE- 
22.COM (the text editor), VDE22.DOC (documentation), and 
VDE220VASM (an overlay file to configure VDE). As I mentioned 
earlier, VDE works "nghl out ol the box^' for Ci28 CP/M, but you 
may want to fine-tune it for your preferences. You can do this either 
by editing the overlay file or, more simply, by using the addresses 
supplied in Ihe overlay to change Ihe values with SID. For example, 
if youVe using the 80-column RGB signal with a composite monitor 



you'll want to reverse the high and low intensity values. You may 
also want to change tabs (they can't be changed fn)m inside the 
prcrt^ram). The most important configuration you'll have to do is for 
your pnnler. You can define three toggles and four switches. These 
define special codes that will be sent to your pnnler for things like 
underlining, boldface, italics, and so on. Macro key definitions can 
be hardwired in with SID, but there's a much easier way to do it 
which is explained in the documentation- 
Using VDE 

VDE can be invoked with or without specifying a filename, VDE 
gives a status line at the top of the screen which shows filename, 
page, line, column, and mode {insert or overwrite). Pressing ESC-? 
will give a menu of commands. 

You can set up ten macros with VDE. Each macro can be up to 65 
characters long. These macros can be either temporary or they can 
be saved. The documentation with VDE explains the procedure for 
saving your macros. 

Two of the nicest commands in VDE are the ones that set the right 
and left margins. These enable wordwrap and give VDE its word 
processing capabilities. VDE also has automatic top and bottom 
page formatting {which can be turned off if you like), as well as 
centering, right margin alignment, and several other text processing 
commands. There are no provisions for headings or other fancy 
features, but most writing applications don't call for these, anyway. 

VDE reminds me of the motto of the old Dr. Dobbs Journal: 
"Running Light Without Overbyle," Eric Meyer deserves the thanks 
of ail CP/M users for creating such an excellent software package 
and putting it in the public domain. 

Spell 2.1 

Spell is a public domain spelling checker Version 2.1 was released 
in 1 985, but Ihe Spell program has a history going back lo 1 982 and 
before. The current version is by Michael C, Adler, and has its roots 
in the work of William Ackerman at MIT 

1 downloaded Spell 2.1 from CompuServe's CPMSIG DLl as a I24K 
library file called SPEL20,LBR. The three necessary files to run Spell 
are SPELLCOM (the spelhng program), DICTDiC (the dictionary), 
and SPELL.DOC (the documentation). The library also contains the 
Z80 assembly language source code for SPELL,COM and a program 

(DICCREIO,COM) to create a compressed dictionary file from a raw 
file. 

Spell nol only looks for words in its main dictionary, but in a pre- 
named user dictionary (SPELL.DIC) and it can be given command- 
line options to have it search any user-created dictionary. 



Th« Tronsoctor 



42 



September 1987: Volume fi, luue 02 



To use Speff you just specify Ihe file you want to it to check. Spell 
looks in its main dictionary, user dictionaries, and any specified 
dictionaries for Ihe words in tfie file. Words not found are marked, 
Tlie marking cfiaracter is a null (f, ASCII 0|, but this can be 
changed if you don't like it. If you're using WordStar you can use the 
tQL command to correct tfie marked file painlessly. If you're using 
anotlier word processor you need to go through the text and erase 
each marker and change the word if it's spelled incorrectly- 
Spelling Bee 

To find out how good Spell is I decided to test it against The Word 
Plus and Perfect Speller The Word Plus is a collection of correction 
and writing aids, of which the spelling checker Is one part, h is 
considered by many to be the best program available. Perfect 
Speller comes with Perfect Writer- 
There are two ways a spelling program can go wrong; it can fail to 
catch a misspelled word or it can mark a word as misspelled thai 
isn'r. Marking words that aren't misspelled as wrong can be 
corrected by adding those words to the user dictionary. Missing 
words that are not spelled correctly is the result of data structures for 
the dictionary and algorithms used and it's performance can't be 
improved by the user It is important to consider both of these 
errors. The best spelling checkers will give balanced performance 
in both areas. Consider, for example, a spelling checker that marks 
every word as misspelled. It would get 100% in catching errors, but 
would fare poorly in the other area, A checker that marked no 
words would be 100% accurate in not marking correctly spelled 
words as wrong, but it would get a zero in catching errors. For those 
interested in the design and history of spelling checkers there is an 

interesting chapter in Jon Bently's Programming Pearls "A Spelling 
Checker'^ (New York: Addison-Wesiey, 1982), pp, 139-150. 

To test the checkers, I u,sed a list of 75 frequently misspelled words 
alongwith their correct spellings, making a total of 150 words. The 
list comes from a test (intended for human spellers) in Harry Shaw's 
Spell it Right, collected in Read, Write and Spell It Right (Hew York: 
Greenwich House, 1982), pp. '^76-478. 1 was surprised by the 
results: 

Misspelled Words Correctly Spelled Words 
Speller Not Caught Marked as Incorrect 

Number Percentage Number Percentage 



The Word Plus 


2 (1} 97% (99%) 





100% 


Perfect Speller 


24 68% 


5 


93% 


Spelt 


2 (1) 97% (99%) 


9 


88% 


Paperback Spel er 


1 99% 


40 


47% 


Easyspe 


1 99% 


13 


83% 



As you can see, The Word Plus gave the best all round performance. 
And to be fair, one of the two words it let slip is given in Ihe 
dictionary as acceptable. What is really impressive is its 100% 
accuracy in the second column. This is a testament to the thorough- 
ness with which this product was designed. Perfect Speller is a 
surprise. If must be judged a failure. Nothing is going to improve the 
number of misspelled words it catches. The next surprise is Spell, h 
did as well as The Word Plus in Ihe first column. (One of its "errors" 
was also deemed as acceptable by the dictionary.) True, it didn't do 
as well in the second column as The Word Plus, but some work on a 
user dictionary will ease that problem. 



To provide a little more perspective 1 ran the spelling test with two 
other popular spellers for the 64/ 1 28 side oE the machine. I'll let you 
draw your own conclusions on these results. 

1 am delighted with Spell and I think it is the perfect complement to 
VDE. These two packages do so much — for free (almost). 



Make Your Keyboard Sing With KEYFIG 

KEYFIG is one of the nicest things about the CI 28's CP/M, And one 
of the best uses of it is to reconfigure your numeric keypad as cursor 
control and editing keys. With KEYFIG you can define a separate 
diamond-shaped area for cursor movement, and use the nearby 
keys for common editing functions. The diamond-shaped cursor 
control layout has been judged by most to be the best ergonomic 
design. 

First, some background. The keyboard definitions are saved as part 
of the CP/M + ,SYS file, and, when it is loaded, the definitions are 
stored in Bank 0- This means that you can have several different 
logical keyboards— as many as you need. For example, if you use 
several text editors and word processors, all of which used different 
cursor and editing commands, with KEYFIG, you can create differ- 
ent keyboard definitions for each application. The cursor-up com- 
mand may be Control-F in one application, Control-E in another, 
and Control-W in another. If you conhgure your numeric keypad for 
use as cursor control keys, you can have keypad-8 be cursor up no 

matter what the code for the application might be. This makes life so 
much simpler. 

To get started, type KEYFIG at the "A^^ prompt. You'll be asked If 
you want help. You don't now, but you may want to review some of 
these topics later Press ^n" and you'll be asked which definitions 
you want to use. Since you haven't created any definitions yet, you'll 
use the default dehnitions. Move the cursor to that selection and 
press Return. (While in KEYFIG you'll need to use the 128 arrow 
keys to scroll through your choices,) Now you're given a choice of 
three things to do: edit a key, assign colors, or exit and save our 
workfile. To start, you want to edit keys, so make this selection. To 
begin, let's define the keypad's S, 4, 6, and 2 as cursor up, left, right, 
and down. To edit a key, just press it, so press "8". You'll see that the 
key has several values; its normal value, a shifted value, a control 
value, and a Commodore-key value. You watit to alter the normal 
(top) value first, so make this selection. You're presented with 
another menu offering various types of assignments. You can assign 
a new character, a striEig, a color, a special function, or a hex value. 
For this key you'll be assigning a single control character, so make 
that selection. 

Now, press the control code for the assignment you want to make — 
Controi-E for WordSlar-llke editors. That key has been reconfi- 
gured. You can define the rest of the the cursor keys just like ''S" by 
supplying the appropriate control values for each key. 

Defining strings is just as easy. After making the choice for string 
assignment, you'll be presented with a list of the 32 available 
strings. Some of these will already have been assigned. Scroll 
through and make a selection and press Return. Then simply enter 
the string- To end strings with a carriage return use Control-M. 
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What follows is one way to configure your keypad by function; 



Normal Value 

Key Function 

(9) page up 
(8) cursor up 
(7) home 
(6) cursor right 
(5) end of line 
(4) cursor left 
(3) page down 
(2) cursor down 
(1) bottom screen 
(0) insert line 
(0 mark block 
{-^ insert /overwrite 
{-) delete char 



Shifted Value 
Key Function 

(9) 

(5) 3 lines up 
(7) top of block 

(6) word right 

(5) beginning of line 

(4) word left 

(3) 

(2) 3 lines down 

(1) bottom of block 

(0) 

(.) mark block end 

(^ 

-) delete to end of line (-) delete entire line 



Control Value 
Key Function 

(S) 

(7) lop of file 

(6) 

(5) 

(4} 

(3) 

(2) 

(I) bottom ol file 

(0) 

( } 
(-0 



Keys with nothing beside them are not defined. The normal values 
comprise all the heavily used cursor movement and editing com- 
mands. The shifted values (when they exist) are intensifications of 
the normal values, and the control values are further intensifica- 
tions. This is only a guide. Your word processor or other application 
may not have all these functions (the one I'm writing this with 
doesn't), or it may have more. 

Pressing the Commodore key (C = ), which acts as a CAPS toggle in 
C128 CP/M, will give you the numeric values for the keypad. The 
above configuration will create an easy-to-use, diamond-shaped 
cursor control station. In addition to the keypad configuration 1 have 

found the following redefinitions helpful: 

(Control-HELP) (Special function) BOOT - This gives you an easy 
way to reboot CP/M without resetting, and when you want to go 
from CP/M to 128 mode you can press Control-HELP instead of 
resetting. 

(ALT) (String) B:tM - on a two drive system this will save two 
keystrokes when you want to change to drive B; 

(Contml-ALT) (String) A:tM - to change back to A: 

(Fl ) (Siring) SDtM - 1 use SD.COM (Super Directory) most of the time 
instead of DIR. This makes it just a keystroke away. 

H 

When you've finished configuring your keyboard you need to save 
(he new definitions. You can save them as the current definitions — 
to try them out to see if you like them — or save them on the boot 
disk. If you save them as the current definitions, you'll need to enter 

KEYFIG again later and save the current definitions permanently to 
your boot disk. 

CP/M Software Update 

rd tike to briefly discuss some CP/M software, both old and new, 
that I think is important to C128 CP/Mer's. Details on the packages 
discussed are given at the end of this article. First, 1 want to mention 
two pieces of hardware; the 1700 and 1750 expansion modules. 
These memory cards work as RAM disks in CP/M and are great. 
Anything on the RAM disk is accessible immediately, just like a 



resident CP/M command. Going Ihrough the edit/compile/link/ 
run cycle with one of these is so pleasant. It's almost as easy as 
working with an interpreter. And it's so quiet. One 128K RAM disk 
and one 1571 would make an excellent CP/M system for about 
$100 less than a two-drive system would cost. 



There are two new releases by Commodore CP/M Engineering 
made available on CompuServe recently. One is the source code for 
the December 6 BIOS, (The BIOS source that comes with the DRl 
offer is an earlier version.) Also recently made available is a new 
version ol FORMAT, The new version is smaller, cun forrrtat disks on 
either drive (the original only formatted disks on drive A:), and 
(most important) it can formal disks in any of the formats the CI 28 
can read. Alt the formats haven't been verified, but the KAYPRO 
and CPM-86 formats work fine. The others should, too. 



Perfect Writer 

As for commercial CP/M software, I've tried several packages 
recently that work well on the C128 and one that was a disappoint- 
ment. Perfect Writer is a word processor that has been released by 
Commodore for the 128 in CP/M mode. (It used to be bundled with 
Kaypros, but WordStar is now.) The Perfect Writer package comes 
with Perfect Speller (which youVe already met) and Perfect Thesau- 
rus for the low price (on the street) of around $50. 

First, Perfect Writer is what is called an EMACS-style editor as 
opposed to a WordStar-style editor. These distinctions refer to the 
editor's command structure. Perfect Writer 2.0 not only has 
EMACS-slyie commands but pop-up menus. These menus can be 
turned off if you like and just the commands used, I don't want to 
give a complete review of Perfect Writer here, but there are several 
things a potential buyer should know. It's huge: slow loading and 
slow working. It uses a disk swap file. Every so often everything 
stops while text in memory is saved to the swap file on your disk. 
There is a quick print function, but printing documents that use any 
advanced formatting functions is a different program (on a different 
disk) that must be loaded and run. 

One annoying thing is that Perfect Writer doesn't use console input, 
so strings a.ssigned with KEYFIG won't work. This means you can't 
do much in the way of reconfiguriEig your keypad to make Perfect 
Writer easy to use except implement the single cursor movement 
keys and the other single- keystroke commands. Perfect Writer 
doesnl automatically reformat after inserting, either. And Perfect 
Writer committed what Byte columnist Jerry Pournelle calls, "the 
one unforgivable sin"; it lost text. This happened to me several 
times. 1 reported it to Commodore CP/M Engineering but haven ^t 
received a reply. It could have been a glitch in my copy, but this 
seems unlikely. On the plus side. Perfect Writer comes with a 
superb manual and is loaded with features. And I have talked to 
some people who love the menus. The menus will make Perfect 
Writer easyto learn, but with itscommand structure, and not letting 
strings from KEYFIG through, it will never be fluid, fast, or flexible. 

WRITEt Some Writing Aids, an Assembler, and More 

WRITE (Writer's Really Incredible Text Editor, $99.95 from Work- 
man & Associates) is an excellent word processor for the CI 28 and 
like a breath of fresh air after Perfect Wriler. It is memory- resident 
and thus has no swap file to slow you down. It's fast, powerful, and a 
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joy to use- Printer configuration may be a problem, though, so check with 
Workman &. Associates before you buy. Also, install the Televideo 912 
terminal instead of Lear-Siegler ADM3 1 . WRITE's previewer works better 
with this emulation on the C12S- 

I've already mentioned The Word Plus ($150.00 from Oasis Systems). It is 
a spelling checker, correction manager, homonym checker, hyphen 
maker, a huge dictionary, and more. An excellent product. (1 understand 
that The Word Plus Is being shipped with NewWord (a word processor like 
WordStar but better according to most) all for $ 1 25. Like getting a discount 
on The Word Pius and a word processor free.) If all you need is a speller 
though, consider SpelL Also from Oasis is Punctuation + Style ($125,00). 
There are two parts to this program. The first is called CLEANUP. It finds 
extra spaces, mixed capitals— like THis— and such like. PHRASE is the 
second program and it marks hackneyed expressions and unnecessary 
words. For example, if you write: "all of the apples looked good," PHRASE 
would say that "of the" is unnecessary and should be cut, I was amazed at 
how good PHRASE is. If you do serious writing, it will more than pay for 
itself. 

Write-Hand-Man ($49,95 from Poor Person Software) is a Sidekick-like 
utility, h lurks in the C128's high memory waiting for you to call it. When 
you do, the present program is interrupted and WHM offers you a notepad, 
a calendar, a phonebook, a terminal program, hexadecimal and decimal 
calculators, and ASCII chart, and more. This is a useful package. 

Z80ASM and SLRNK ($49.95 each from SLR Systems) are a Z80 macro 
relocatable assembler and linker ZSOASM is fully compatible with Micro- 
soft's MSO. Many CP/M assembly language programs were written and 
are being written with M80 so this is an important feature. Probably the 
best thing about ZSOASM is that it can produce executable .COM file,s in 
one step and it is FAST. And I mean warp^faclor five FAST! Z80ASM takes 
a lot of the bite out of assembly language programming, 

Z80DIS is a public domain Z8fl disassembler with some interesting 
features. !t can generate its own breakpoints— or at least will try. This 
means it will decide which parts of the machine code are instructions and 
which are data. Impressive. The source code for Z80DIS {which the author 
hasn't released) is over 5000 lines of Turbo Pascal. 

I hope to have more detailed reports on some of these products in the 
future, as well as several that are still in my review queue. Queued items 
include two packages from Kamascft: Out-Think and KAMAS. Out-Think 
is an outline processor and text editor, and KAMAS is an outline processor 
and programming language. Also, MTBASIC, a multitasking BASIC 
interpreter/ compiler; Fancy Font, by all accounts, THE printer enhance- 
ment package; and ASM from MIX Software, which lets you run assembly 
language subroutines with their C compiler. I have just started working 
with these packages so I don^t have much to report yet. More later. 



How lo Gel Ihe Public Domain Software 

All the public domain programs mentioned in this article — VDE, Spell, 
Format, the December 6 BIOS, and Z80DIS - are available on Compu- 
Serve (see below for details), or you may be able to find them on a bulletin 
board near you, get them from a friend, or from local user's group. If you 
can't find them, send me an SASE and a formatted Ci28 single- or 
double-sided disk plus $3 for each library you want, and I'll copy them for 
you. There are four libraries: VDE22.LBR, C6DEC.LBR. Z80DIS2I.LBR, 
and SPEL20,LBR (FORMAT is smaii and will be on every disk). 



A note on .LBR and squeezed files. Putting files in libraries 
and squeezing is a way of making the files smaller, so they'll 
transfer more quickly, and more unihed — one library file 
instead of several single files. U you download any of these 
libraries yourself you'll need a de-library utility and an 
unsqueeze utility, like DELBR and USQ, or NULU, so 
download these programs, too. If you get the files from me Til 
put these utilities on the disk. 

Clifton Karnes 
2519 0verbrookDr, 
Greensboro, NC 27408 

Software Sources Mentioned: 



CompuServe CPMSIG 
VDE22,LBR {54K) (DLl) 
SPEUO.LBR (124K)(DL1) 
C6DECXBR (130K}(DL3) 
Z80D1S2KLBR(148K)(DL2) 
FORMATBIN (2K) {DL3) 

WRITE 

Workman & Associates 

112 Marion Avenue 

Pasadena, CA 91106 

(S18)7%'4401 

The Word Plus 
Punctuation -\- Style 

Oasis Systems/FTL Games 
6160 Lusk Blvd. Suite C206 
San Diego, CA 92121 
{619)453-5711 



public domain 
public domain 
public domain 
public domain 
public domain 

$99.95 



$150.00 
$125.00 



280ASM 


$49.95 


SLRNK 


$49.95 


SLR Systems 




1622 N. Main St. 




Buter, PA 16001 




(412)282-0864 





Write-Hand-Man $49, 95 

Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
(415)493-3735 

NewWord $125,00 

(includes The Word Plus) 

NewSlar Software 

1601 Oak Park Blvd, 

Pleasant Hill, CA 94523 

(415)932-2526 

Please Note; Ellis Computing, the source for Nevada BASIC, 

FORTRAN, COBOL, Edit, etc. has moved. Their new address 
is: 

5655 Riggins Court, Suite 10 

Reno, Nevada 89502 

(702)827-3030 
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Making the most of practically nothing. 



The number of files that the C-l 28 can store on a disk is limited by 
two factors: the storage space available and the maximum number 
of directory entries. When disk space is limited, the number of files 
on a disk rarely approaches the maximum and directories remain a 
manageable size. With the increased storage space available on 
large capacity disk drives, however, directory listings grow propor- 
tionately. The number of files often reaches the maximum allowed 
and a given file can be difficult to find. CP/M Plus provides an aid to 
file organization in the form of ^USER AREAS\ 

The C-128 can currently use two Commodoredisk drives: the 1541 
and the 1571. Both can be used in the i28's CP/M mode ailhough 
the 1541 is far too slow to be of practical use. In CP/M mode, the 
1541 can store a maximum of 134 Kbytes in a maximum of 64 
directory entries. The 1571 can store a maximum of 336 Kbytes in a 
maximum of 1 28 directory entries on a disk in C-128 double-sided 
format. (In some MFM formats the 1571 can hold more data - the 
Kaypro IV format can hold 390 Kbytes with a maximum of 128 
directory entries - but the benefits of increases in storage space are 
offset by decreases in disk access speed). 

Unmanageable directories are rarely a problem with the limited 
storage capacity on the 154L The storage capacity of the 1571 
however - more than double that of the 1541, can make for very 
long directory listings. Finding a particular file, even with CP/M's 
sorted directories, can be a chore. 

CP/M's file naming conventions can also make directories difficult 
to read. File names in CP/M mode are limited to a maximum of 8 
characters compared to Commodore DOS's limit of 16 characters. 
Trying to create distinct but meaningful file names can become a 
poetic exercise. While a filename can be modified by a 3 character 
filetype, you do not always have the option on the hletype that can 
be assigned- Many filelypes are reserved to designate categories of 
files and should not be used indiscriminately. The fiietype .com, for 
example, must modify the filename of every executable file, while 
-sub is reserved for files used by submit.com 

The problem gets worse if you are using the 1 750 RAM expansion 
cartridge. This cartridge adds 5 1 2K bytes of extra memory to the C- 
128. Unfortunately, the CP/M operating system is limited to an 
environment of 64K total memory. To make use of the extra 
memory, it is configured by CP/M on the 1 28 to be recognized as a 
RAM disk with the drive designation M:. This allows for very fast 
"disk' access since the 'disk' is really memory. It also provides a 
'disk' that is larger than any of the real disks currently available for 
the 128. 



The RAM disk can store a maximum of 508 Kbytes in a maximum 
of 127 directory entries. Paradoxically, while the storage space is 
over 50% greater than on the 1571, the maximum number of 
directory entries is one less than on the 1571. 

(The 1750 RAM expansion is indispensable when using CP/M on 
the C-128. CP/M is a disk-based operating system. It is loaded into 
the computer when a CP/M session is started and practically all 
operating system commands jnust be loaded into memory by CP/M 
before they can be executed. While CP/M cannot be booted from 
the RAM disk, the CP/M environment can be cuslomized so that all 
subsequent commands can be loaded Irom RAM disk, rather than 
disk drive, with substantial increases In performance. If you are 
using CP/M but do not have a 1750 expansion unit, you should 
seriously consider buying one. 

For those with a curious nature - there is a secret hidden within the 

RAM disk. By now 1 28 users are aware of the SYS in 1 28 mode that 
displays the names of the creators of the 128 and their feelings about 
the arms race. Von Ertwine, the programmer responsible for porting 
CP/M to the 1 28, has also hidden his name in the RAM disk in CP/ 
M mode. To display it, issue the 'show m:[iabel]' command.} 

The RAM expansion cartridge provides the 'disk' with the greatest 
amount of storage space that is currently available for use with CP/ 
M. That situation will soon change. A number of hard-disks with 1 
and 20 megabyte storage capacities were shown at the World of 
Commodore in Toronto this year While none of them worked in 
CP/M mode on the 1 28, representatives for all of the manufacturers 
promised that capability in the near future- 

More realistic, both in terms of price and availability, is the 1581, a 
3.5 inch drive from Commodore. Commodore Canada has con- 
firmed the 1581 will operate in CP/M mode, although CP/M cannot 
be booted from it. This drive will provide in the neighbourhood of 
800K t)ytes of storage space. No information is available on the 
maximum number of directory entries. Commodore will be limiting 
its potential if they do not make provisions for the storage of a 
greater number of files than on the 1 57 1 , 

One requirement of storage devices with ever increasing capacities 
is a directory system that can expand beyond a single, simple 
sequential list. One popular file management system is the arrange- 
ment of files into nested subdirectories starting from a root direc- 
tory. This arrangement allows for manageable directory listings as 
well as the extension of the limit on the number of files that can be 
stored on a disk. While the number of directory entries will still be 
limited, the number of directories will have increased. 
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This file management method is used by practically ail ^modern' 
operating systems — by all, That is, but CP/M Pius. To preserve 
compatibiiiiy with its earlier incarnations, a different file manage- 
ment system is used, instead of a root and nested subdirectories, 
CP/M Plus has the ability to divide a disk directory into fixed 
directories, called user areas. A user area is purely a logical 
construct - there is no physical user area on a disk. It is only a 
designation given by CP/M to a file- 
Early versions of CP/M - up lo version 1.4 ■- did not provide user 
area capabilities. User areas were first introduced in CP/M 2.2 in an 
attempt to solve two problems. The availability of large capacity 
mass storage^ devices introduced the directory and filenaming 
problems discussed above. Secondly, system security and data 
integrity were becoming problems in multi-user environments. 

These problems could have been solved using a syslem of nested 
subdirectories. This, however, would have made subsequent ver- 
sions of CP/M incompatible with their predecessors. None of the 
then available software was designed to operate in a mu It i -directory 
environment. Programs looked for overlays and data files in the 
current directory since no other directory existed. An operating 
system that made these programs obsolete would have alienated 
both program developers and users. 

Instead CP/M creates 16 fixed, distinct user areas numbered 
through 15. A user area can be thought of as a work environment. 
Most programs and operating system commands are executed 
within the current user area. Files on a disk are de.signated as 
belonging to the user area in which they were created. Access to 
user areas, and the files associated with them, can be restricted with 
passwords. 

Normally, the files in a user area other than the current one are 
invisible to the operating system. This allows programs from the 
pre-user area era to operate without modification. These programs 
consider the current user area to be the only possible environment 
and do not attempt to access other user areas. Their drive/file 
specification syntax does not make provisions for accepting a user 
area specifier For these programs to work, all of the supporting 
program files and data files must be located in the user area from 
which they were invoked. 

Some recent CP/M prc^rams will support operations across user 
areas. Unfortunately, the majority of the transient commands pro- 
vided with CP/M Plus do not fall into this category. They do not 
recognize non-current user areas and will not access files outside of 
the current one. Their command syntax will not accept a user area 
specification. Only four CP/M Plus transient commands provide 
options for specifying user areas: USER, SHOW, DIR and PiP. 

The current user area is indicated in the system prompt. A number 
corresponding to the user area number precedes the current-drive 
letter in all but user area 0. User area is the default user area and is 
the current environment when CP/M boots up. In user area 0, no 
number precedes the current-- drive letter It is not possible to name 
user areas and reference them as such. All references to user areas 
through the system prompt must be by number. 

User areas can be changed by entering: 

du: <cr> 



at the prompt, where d is the drive-letter, and u is the user area. The 
current user area can also be changed using the built-in USER 
command. Enter: 

USERu<cr> 

at the prompt, where u is the user area or: 

USER <cr> 

at the prompt to execute the interactive version of USER. 

The numbers of the active user areas (user areas that 'own' files on 
the currently active disks) and the number of files within those user 
areas can be determined with the SHOW command. One of the 
options available with SHOW is USER, (Executing SHOW without 
any options displays the number of Kbytes left on the disk.) To 
determine the active user areas enter: 

SHOWd:lUSER]<cr> 

where d is the drive to be examined. The word USER must be 
enclosed in square brackets as with all CP/M Plus options. In 
addition, since SHOW is a transient command, it must be located on 
the current drive in the current user area. 

CP/M will respond with output resembling: 

A: Active User; 1 

A: Active Files : 1 2 4 

A:#offiles : 16 5 12 7 

A; Number of time/date directory entries: 32 
A: Number of free directory entries: 53 

The A: followed by the colon indicates that this information is for the 
disk in drive A. The 'Active User' is the user area number from 
which the SHOW command was issued, in this case user area \. 
'Active Files' arc the numbers of the user areas on the disk in drive 
A that have files associated with them. The '* of files^ are the 
number of files associated with the user area number directly above 
tliem. 

Having determined the active user areas, their directories can be 
displayed in two ways. Issuing the DIR command will display the 
directory oS the current user area. To display the directory of 
another active user area, you can make it the current user area with 
the USER command, then issue a simple DIR command- Alterna- 
tively, the directories of any active user area can be displayed from 
the current user area, using one of the options provided with the 
transient version of the DIR command. Because the transient 
version of DIR is being used, dir.com must be located on the current 
drive in the current user area, 

DIR will accept a variety of syntaxes to display the directories of 
various user areas: 



DIR d filename[Gu] 
DIRd:filename[USER = u] 
DIRd.!ilename[USER = (u,u„ 
DIR d:ftlename[USER = ALL] 



)] 
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where d is the optional drive letter, filename is an optional filename 
and u is the user number. All of these forms will display directories 
of user areas other than the current one. The last form of The 
command will display the directories of all active user areas. 

While it is nice to know what flies are stored where on a disk, the 
knowledge is wasted if those files cannot be accessed from the 
current user area. Fortunately the PIP command can be used to 
copy files from one user area to another. PIP is a transient command 
and must be located on the current drive in the current user area 
whether it is issued with or without options. In fact, issuing the PIP 
command without specifiers or options will load PIP from disk and 
execute fhe program in interactive mode. 

The option that lets PIP copy files across user areas is unique among 
options for CP/M commands. For all other commands, and even for 
ail other options available within PIP, options must be enclosed in 
square brackets following the source-file specification. With PIP. the 
user area option alone tan be enclosed in square brackets following 
the destination file specification. This allows files to be copied from a 
non-current user area to another non-current user area, instead of 
exclusively to the current user area. 

The syntax for the PJP command with this option is; 



PIP d:destinationfile[Gu] = d:sourcefife[Gu 



where d is an optional drive specification and u is the user number. 

In addition to being a powerful disk-to-disk file copying program, 
PIP can also copy files from disk to other devices connected to the 

system. This always includes a screen and may include a printer if 
you are fortunate. Using PIP with options to copy files from non- 
current user areas to the screen or printer can simulate the use of 
simple commands, such as TYPE, Issued from the current user area. 

Similar to the way a disk drive is specified in PIP by a letter followed 
by a colon, a device other than a disk drive can be specified by three 
letters followed by a colon. The screen is specified with CON; {short 
for console device) and the printer is specified with LST: {short for 
list device). These device specifications can be used in place of the 
d; drive specification In the PIP command syntax shown above. The 
filename and user area number should be omitted since they have 
no meaning for these devices. 

This is the extent of the CP/M Plus commands that will work with or 
across user areas. For all other CP/M commands and most commer- 
cial programs, the current user area is ij^norant of other user areas. 
With one exception, prc^rams executed in one user area cannot 
access files in another. Programs located in a non-current user area, 
again with one exception, cannot be executed from another user 
area. If you think this sounds limiting, you're right. Compared to a 
system of nested subdirectories with access to files along directory 
paths, CP/M Plus's user areas are constraining a[id short-sighted in 
their vision of real needs. 

The only compromise to utility is an indirect benefit of a characteris- 
tic of CP/M versions prior to CP/M Plus, CP/M Plus imposes a 
distinction between SYSTEM files and DIRECTORY files. DIREC- 
TORY files are visible when a simple DIR command is issued, while 
SYSTEM files are not displayed. (SYSTEM files can be displayed 
using the DIRSYS command.) in this way, files that are used only by 



theCP/Moperatingsystemcan be hidden, reducing the number of 
files displayed in a directory listing. 

The distinction between SYS and DIR files Is both artificial and 
arbitrary. Files that are accessed by the user through the command 
line can also be designated as SYS files using the SET command. In 
addition, files that are used by the system can be designated as DIR 
files with the SET command. The syntax for SET is; 

SETd:filename[SYSTEM] 
SET d:filename[DIRECTORY] 

A file in any user area can be designated as a SYS file. The result is to 
hide those files in directory listings. Files in user area 0, however, 
take on a special characteristic when they are designated as SY^S 
files. Piles in user area can be accessed from any user area when 
they are designated as SYS files. Executable files with the SYS 
designation can be executed from any user area. Data files can also 
be accessed, but only for read operations. 

This feature allows user areas to function as simple, smgle level 
subdirectories with user area as the root directory. Keeping 
utilities and application programs in user area and giving them the 
SYS designation allows data files to be distributed amo[ig user areas 
in a rational, project-oriented manner while avoiding the necessity 
of keeping copies of each program in every user area. 

The file management system in CP/M Plus is primitive when 
compared to many of the operating systems found on todays high- 
end computers. User areas do not compare favourably with a 
s>"5tem of nested subdirectories with the ability to find a file along a 
specified directory path. Still, on the C-128, they are a vast 
improvement over the sequential system used in 128 mode. With a 
little forethought in file arrangement, user areas can be useful for 
directory management of large capacity disk drives. 

Finally, the usefulness and power of the file management system In 
CP/M can be extended with the use of a variety of add-on or 
replacement programs. Two of the most promising that I have come 
across are ConlX, from Computer Helper Industries Inc, and 
TurboDOS, from Software 2000. 

ConlX, a version of which is available in Shareware, is a replace- 
ment CCP that sits on top of the standard CP/M BIOS and BDOS, As 
its name suggests, it emulates many of the file and environment 
management functions of UNIX, These include variables, named 
directories and shell scripts with flow control. Compatibility with 
existing CP/M programs is high since the CP/M environment 
remains virtually the same for program execution. 

In contrast, TurboDOS 2000 Is a replacement operating system for the 
Z80 chip. The manufacturers claim that TurboDOS corrects many of 
ttie flaws of CP/M while maintaining compatibility with CP/M pro- 
grams. Improvements Include named directories with diredory path 
searching. As a replacement operating system, TurboDOS requires 
considerable effort to install. There is a good chance that it may not 
work on the C-i28 with its unique, schizophrenic architecture. 

1 have requested evaluation copies of the prc^rams from both 
manufacturers and will keep you posted on my progress. With a 
little work the boundaries of the Z80 chip on the C-128 can be 
stretched to their limits. 



The Transactor 



48 



Septomber 1987: Volume 8, Issue 02 



Assembly Language 
Disk Error Recovery 



Robert V. Davis 
Saliiia, Kansas 



Two Small Disk Utility Subroutines 



Here are two small disk ulitity programs which are actually 
useless by themselves, but they can make life a bit easier for you 
if you add one or both to your own machine language routines. 
They solve a problem which occurs when you either forget to 
turn on your disk drive or you neglect to insert a disk or even if 
you remember both those items and forget to close the drive 
door. Since they use standard kernai calls, they should work with 
equanimity on any 8-bit Commodore computer. 

The first program answers the timeless question, "Is the Disk 
Drive There?" Although 1 wrote my version to start in normal 
BASIC workspace, it could exist in the cassette buffer or in any 
out of the way RAM space. Simply change the assembly address 
in line 130 and remove line 140. The program opens the 
standard 15,8,15 file and initializes the drive. If the disk drive 
does not respond, the program prints ^'CHECK DRIVE 8" at the 
current cursor location. If you change the label DRVNR to 9, it 
works for that drive as well. 

If the drive is plugged in and responds, the program exits 
without a word. Change the JMP $E37B to go to your own 
program, perhaps to the next error checking program. 

The DISK ERROR CHANNEL program is not new, but it is In 
SYMASS assembler format, and it loo avoids contact with the 
user unless something has gone wrong. If it finds that the error 
number is 00, it exits gracefully, without writing a note to the 
operator, ]f an error is indicated, it will communicate with the 
person who neglected the care and feeding of the disk drive. 

This program occupies a few^ bytes in the cassette buffer, and as 
written, is accessed with a SYS 828. 

Although I have not experienced a problem, I took care to 
retrieve all the disk status message from DOS even if it is not 
printed to the screen. Some authors have reported DOS confu- 
sion if only the error number is read. 

Of course it is appropriate to call the program when you attempt 
open a read file, just to make sure the proper disk is in the drive. 

Like the first program, the ERROR CHANNEL routine ends in a 
JMP $E37B. to BASIC warm start. You should insert your own 
jump or RTS to the appropriate place in your program. 

The usual caution applies concerning the opening and dosing of 
Ihe file for the disk error channel. You should only open it before 
opening all other files in your program and close it after all other 
files are closed so as to avoid losing information stored in buffers 
but not yet written to the magnetic surface. In other words, only 



do that part of the first program in lines 1 60 through 260 once in 
your program and only close the error channel when you are 
done with disk access. Don^t be opening and closing the error 
channel every time you want to check the disk status. 

With the combination of the two programs shown here, you can 
handle many of the common errors involving the disk drive 
before they crash your program. 

When using SYMASS to assemble into BASIC space, starting at 
$080 1 , just load and run SYMASS. . , then type 

POKE 44,64:POKE 16384,0:NEW 

and press RETURN, This will set the start of BASIC at the 16K 
mark and will leave about 14K for your object code- 



FD 
FG 
MD 
EH 
AD 
FA 
GB 
CM 
HN 
BG 
GM 
IE 
AP 
JN 
PO 
BJ 
CL 
JF 
CD 
AJ 
FG 
HN 
Jl 
FA 
LD 
KD 
BH 
JB 
OP 
GN 
LG 



1 00 sys 700 

nO; "is the disk drive there?' 

120; using the symass 3.13 assembfer 

130* = $0801 

140,byte$0a,$08,$00,$00,$9e.$32 

150.byte$30,$36,$31.$00,$00,$00 

160: 



170 

180 

190 

200 

210; 

220 

230 

240 

250 

260 

270 

280; 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380; 

390 fini 

400 



Ida 
Idx 
Idy 

jsr 

Ida 
Idx 
Idy 

jsr 
jsr 
bcc 



#15 
drvnr 
#15 
$ffba 

#3 ;length of filename 

#<initfn ;lowbyte 
#>jnitfn ;hJgh byte 



;file number 
;device number 
;secondary address 
;set parameters 



$ffbd 
$ffcO 
fini 



Idy #11 

pfint1= 

Ida 

jsr 

dey 

bpl 

Ida 

era 

jsr 



errtxt,y 

$tfd2 

printi 

drvnr 
#$30 
$ffd2 



;set filename 
;open file 
;if carry clear 
everything was ok 

;eleven characters 

t 

;get one char 
;send it to screen 

iloop until done 

;converttoascii 
;output to screen 



= * 



Idx #15 



jfile number 15 

. . , continued on page 52 
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Upgrading the 
Amiga 1000 to 32 bits 



Dan Schein 
West Lawn, PA 



. . .the MC68010 at equal clock frequencies will run from 8% to 50% 
faster than an MC68000 without any user code changes. . . 



In recerU months there has been a lot of interest in replacing tiie 
Amiga's MC68000 microprocessor with a MC68010. This article 
will explain to you the advantages of upgrading to a MC680IO 
and also show exactly liow the conversion is performed. 

MC68010*s come in several types; the suggested types for this 
conversion are the MC680i6l8 or MC68010L10. These two 
types are the least expensive and easiest to obtain. MC68010"s 
can normaliy be purchased from an electronics supply house, 
computer flea markets or shows, and many mail order firms. 
Usuai cost for either of these chips is under $20 (US), 

Pin for pin. the MC68010 is compatible with the MC68000 
currently in your Amiga. The advantages of the MC68010 are 
many. Here is a partial listing taken directly from "Motorola's 
MC68010 Micro Minutes MM-444-002": 

'The MC680IO at equal clock frequencies will run from 8% to 
50% faster than an MC68000 without any user code changes. 
The new MC68010 multiply is 14 clocks faster, and the divide is 
32 clocks faster than the MC68000. Programs utilizing (or with 
the potential of utilizing) such operations can obtain an increase 
in performance easily exceeding 10%, The bottom line is, by 
upgrading an MC68000 system to an MC68010 system, an 
increase in system performance is obtained which is equal to 
that which a system redesign from 10 MHz to 12.5 MHz would 
provide, but with significantly less design cost and effort." Please 
note that the Amiga runs at 7.14 MHz and not 10 MHz, so this 
upgrade would make your Amiga equal to 8.925 MHz, 

The catch to all these advantages (come on, now, you knew 
there had to be one somewhere) is a minor software incompati- 
bility. The MC68000's ''MOVE SR,ea'' mstruction has been made 
into a privileged operation in the MCOSOIO. What this means is 
that programs using the instruction "MOVB SR,ea^' will cause 
you to receive a software error, followed by a visit from the 
Amiga Guru. 

The fix for this incompatibility is a fantastic piece of code written 
by Scott Turner. This software solution stops the Guru from 
visiting when the "MOVE SR,ea" instruction is used. This 
software fix is actually a "wedge" that catches privileged instruc- 
tion violations. The wedge then examines the instruction for 
MOVE SR,ea"; if found the wedge replaces that instruction with 
MOVE CCR.ea'' and resumes execution of the program. This 
wedge is called "DeciGEL" and is available in the Public Domai n 
usually as an ARC type of file. The ARC file usually consists of 



a 



ii 



the assembled code (only 168 bytes), the assembly language 
source code, and a short program to ensure thai DeciGEL is 
assembled and linked correctly. This ARC file is available from 
many sources. The most common sources include Amicus Disk 
*9, Fish Disk *!S, and most of the major commercial database 
services. Local BBS services may also have DeciGEL available 
for downloading; one such BBS is PhilAMlGA (215-533-3191) 
where all three DeciGEL files are available for downloading in 
the form of one ARC type file called "DeciGEL.arc". 

Use of DeciGEL could not be easier. Simply place DeciGEL into 
the root directory of your Workbench disk and edit your 
St art up -Sequence (found in the S directory) to include a call to 
DeciGEL (Do not change it just yet, though). The following is an 
example: 

echo "Workbench disk. Release 1.2" 

echo ■' " 

echo " Use Preferences tool to set date " 

echo ■' ' 

DeciGEL 

LoadWB 

endcli> nil: 

The Startup-Sequence can easily be modified using Ed. Ed is a 
text editor supplied on your Amiga Workbench disk. For instruc- 
tions on using Ed consult the Amiga DOS Users Manual, or 
Volume 6, Issue 6 of Transactor, 

Now it's time for the actual conversion of your Amiga. The tools 
you will need are a Phillips screwdriver, a small straight screw- 
driver, and a chip puller But first, a few words of caution. The 
circuit board and its components inside the Amiga are very 
fragile and very, very sensitive to static. Opening your Amiga to 
perform this upgrade will void your warranty, so wait till it's over 
(90 days is not that long). Caution and common sense are all you 
should need; take your lime and be careful. If you want to be 
safe, have an experienced technician perform the upgrade for 
you. 

Disconnect all cables from your Amiga and turn the unit upside- 
down. For this and all the following steps, the rear of the unit 
should be facing you. To open your Amiga you must remove the 
5 recessed screws holding the case together (see Photo I ). Seven 
screws are marked with arrows. The two at the lop of the photo 
need not be removed to get the Amiga apart. After removing the 
5 recessed screws, turn your unit rights-side up. 
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Now comes the trickiest part - opening 
ttie case. Examine the seam on the 
riglit side of the case: behind the power 
switch and roughly 10 inches back fur- 
ther are plastic tabs that hold the case 
together. Push in on these tabs one at a 
time using a small screwdriver until 
Ihey release. Now do the same thing on 
the left side of your case and, after 
separating all four tabs, remove the top 
cover. You must now remove the metal 
RF shielding that covers the entire cir- 
cuit board. The PF shield has 14 screws 
securing it in place (see Photo 2). Re- 
move all 14 screws noting where they 
were removed from, as there are sev- 
eral types of screws used. There are 
also 2 twisted tabs holding the RF shield 
in place (see Photo 2, where the tabs are 
marked with wavy lines). Straighten 
these tabs out, and remove the RF 
shield. The MC68000 chip should now 
be visible (see Photo 3; the MC68000 is 
marked with an "x"). 

Using a chip puller, remove the 
MC68000 and replace it with your new 
MC68010. It is important lo note the 
correct direction for installation of the 
MC68010 (see Photo 4). Now reverse 
all steps to reassemble your Amiga. The 
metal tabs that helped hold the RF 
shield do not have to be twisted back 
into place. 

Now it's time to reconnect your Amiga 
and test the results. For this lest you 
must use VI .1 of Kickstart and Work- 
bench (vl.2 will noi work for this test, 
although it is completely compatible 
with the 68010). Power up the Amiga, 
Everything should appear to be work- 
ing in a normal fashion. Now start the 
Calculator and try '^*9''. You should 
receive a Software Failure; this means 
that your MC68010 is working cor- 
rectly The reason for this error is be- 
cause the vl.l Calculator uses the 
^'MOVE SR.ea'' instruction, which is 
now an invalid command. The Calcula- 
tor supplied with the vL2 operating 
system was written with the MC68010 
in mind, and does not use the "MOVE 
SR.ea" instruction. VI, 2 will work cor- 
rectly with the MC68010 and is highly 
recommended. 

Assuming the above sequence has 
gone well and your results were just as I 
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have described, i suggest Ihal you now make fhe changes listed 
earlier to your Startup-Sequence. Witti the MC68010 installed 
and the DeclGEL wedge running, your Amiga should be be- 
tween 8% and 50% faster. The speed difference will vary 
depending on the software you are using. The largest advantage 
will be noticed when doing a lot of number crunching, as with 
spreadsheets, ray (racings and Mandelbrot picture generations. 
To check that DeciGEL and your MC68010 are working cor- 
rectly together, retry the vl.I Calculator test described earlier. 
This time you should not receive a Software Error, but will find 
out that 9*9 is{iqiuilto81. 

If you do not get the expected results, recheck the cables and 
connections. The following items are possibilities you should 
check for: 

1) You have installed the MC68010 the wrong way around. 

2) The MC68010 is dead (i.e. no good) 

3) You put the MC68000 back in by mistake 

4) You have damaged something else inside your Amiga 

i suggest that you first remove the MC68010 and reinstall the 
MC68000. If your Amiga works with the MC68000 re-instailed, 
then odds are you have a dead MC68010. if your Amiga still 
does not work I suggest you consult an authorized Amiga 
service centre for help. 




*•*».'; 



continued from page 49. 
jsr $ffcc ;closefile 
jmp $e37b ;pr;nt ready 



OF 410 

KH 420 

EC 430 ; 

GE 440drvnr= • 

HI 450 .bytes 

AN ■ 460initfn - » 

DN 470 ,asc "iO:" 

JP ' 480; 

GO 490 errtxt = • 

JC 500 .asc " evird kcehc 

KN 510. end 






FD 

NE 
MD 
LL 
CA 
OK 
DM 
NE 
CL 
ED 
GN 
JG 
Kl 
MF 
DA 
IE 
IC 
KP 
IM 
PA 
HL 
NG 
PB 
KO 
FO 
EJ 
PD 
CO 
CP 
KB 
EP 
DD 
DE 
HE 
DJ 
AP 
ON 
GO 
GF 
LB 
AG 
IN 
GK 
FO 
BP 
KO 
MA 



; drive eight ornine 

; filename to 
initialize drive 



100sys700 

110; read the disk error channel 
120 ; using the symass3.13 assembler 
130f = $033c 



140; 








150 


da 


#15 


;fie number 


160 


dx 


drvnr 


; device number 


170 


dy 


#15 


;secondary address 


180 


jsr 


Stfba 


;set parameters 


190; 








200 


Ida 


#0 


;length of filename 


210 


sr 


$ffbd 


; set filename 


220 


jsr 


$ffc0 


;open file 


230; 








240 


Idx 


#15 


;#15-errorfile 


250 


jsr 


$ffc6 


;inputfrom file 15 


260 


jsr 


$ffe4 


;get first char 


270 


sta 


tempi 


;remember it 


280 


jsr 


$ffe4 


;get second char 


290 


sta 


temp 2 


;remember it 


300 


cmp tempi 


;compare#1 to #2 


310 


bne 


prnterr 


;if not = print error msg 


320 


and #$0f 


;mask high nybbe 


330 


bne 


prnterr 


;f not zero then print err 


340 noerr 


jsr 


$ffe4 


;no error so continue 


350 


cmpnod 


;compare to return 


360 


bne 


noerr 




370 


jmp 


done 




380; 








390; print error routine 




400 prnterr Ida 


tempi 




410 


jsr 


$ffd2 




420 


Ida 


Iemp2 




430 


sr 


$ffd2 




440 loop 


jsr 


$tfe4 


; get character 


450 


jsr 


$ffd2 


;print to screen 


460 


cmpnod 


;is It return 


470 


bne 


oop 


;nothen loop 


480; 








490 done 


jsr 


$ffcc 


; reset i/o 


500 


da 


#15 


;file#15 


510 


jsr 


$ffc3 


;c[o3e the f e 


520 


jmp 


$e37b 


;basic warm start 


530 temp- 


f nop 






540temp2 nop 






550 drvnr 


-byt. 


e8 


;either 8 or 9 


560 .end 
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The Amiga Section: 
Messages, Ports and Signals 

Chris Zamara, Technical Editor 



- Getting tasks to talk to one another is simple! 



Introduclion 

Since the Amiga is a multitasking computer, there are always several 
programs, known as "tasks'' in the jargon of the operating system, 
operating at any one time. Even if you just run a single program on 
your Amiga, there are system tasks hard at work taking care of 
things like the disk drives, keyboard and mouse input, and of course 
the Workbench, if it has been starled. 

In order for these system tasks to communicate with the application 
programs in (he system, they use something called a message. A 
message is a chunk of data that is sent lo a receiving message port, 
where it can be read by a task. More accurately, it is a chunk of 
memory in the data segment of one task that can be accessed by 
another task when the message is "sent" or*'put" to a message port. 
The mechanism for creating message ports and sending messages 
is provided by Exec, the part of the operating system that handles 
task-scheduling and other low- level operations. 

Messages are not just used as a means of communication between 
the .system and application programs, however; any task in the 
system can communicate with any other task in the same manner. 
The C program presented here, "Talking Tasks", provides an 
example of such inter-task communication, and shows how you can 
send, receive, and reply to messages in your own programs. 

What Messages are Used For 

[f you have written any programs using Intuition, the Amiga's user 
interface system, you have already come in contact with reading 
messages. Input from the user can be read by using Intuition's 
JDCMP. IDCMP stands for Intuition Direct Communication Message 
Port, and it lets a program find out about events that concern it, like 
mouse movements, gadget clicks, and keyboard activity. The 
IDCMP reports these events to a program as messages. The pro- 
gram waits for a message, then reads a message port to get the 
information contained in the message. Ofice the program receives a 
message, it replies so that whatever task sent the message knows it 
was received and can change the message to send a new one. 

In the "Talking Tasks" program, we will show a different use of 
messages in order to illustrate the method for creating your own 
message ports, finding an existing message port, and sending, 
receiving and replying to messages. The program itself is not 
extremely useful other than being a bit of fun, but it shows you how 
you can write a program that can communicate with other copies of 
itself that are in the system- 



Ttie most common use for message-passing between non-system 
tasks is when a program spawns a new "child" task, and communi- 
cates with this task to tell it things like when to free its resources so 
that it can be killed. We are not covering spawning a task in this 
article, but there are stilt many applications where communication 
between unrelated tasks can be useful. One interesting example 
has been suggested by Jim Butlerfield: a spelling-checker that runs 
as a separate task, communicating with the text editor to check 
words as they are entered. The text editor would just mind its own 
business, but words would be automatically checked by the spelling 
checker program that you run on its own. Even if you don't have an 
immediate application for message- passing, it is important to learn 
about messages and ports because they are so fundamental to the 
operation of the Amiga in general. 

The Details 

Talking about sending a message to a message port sounds like 
interesting theory, but what does it mean in terms of the computer's 
real world of bits and memory locations? A message port can be 
thought of as a place where messages are collected; in real terms it is 
a ^'MsgPort" data structure silting somewhere in memory. In this 
data structure, among other things, is a pointer to the list of 
messages that are currently at that port, waiting to be read. There is 
also a "Node" structure so that Exec can maintain all message ports 
in a hnked list - one of the many lists managed by Exec using the 
"Node" structure. The system will use the node when you ask it to 
deal with the MsgPort list, for example when you add, delete, or 
search for a specific message port. Besides the list node and the 
pointer to the messages waiting at the port, a MsgPort contains 
information about the signals for that port, which will be explained 
later. 

Here is the definition of a MsgPort structure: 

struct MsgPort { 
struct Node mp_Node; /' for system list management use 
UBYTE nip_Flags; h defines message- arrival action 
UBYTE mp_SigBit; h signal bit number 
struct Task 'mp_SigTask;/* task to be signalled 
struct List mp_MsgList; /* points to linked list of messages 

!; 

(For some background about data structures and their use in the 
Amiga, see the article in the Transactor, Volume 7 Issue 5, 
"Programming the Amiga".) 
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Like the message port, the message ilself is also a data structure 
in memory. A message always starts with a ''Message" structure, 
but the message body after that can contain up to 64K of any 
kind of information, depending on the application. This is the 
Message structure definition: 

struct Message { 

struct Node mn_Node; /* for system list management use */ 

struct MsgPort •mn_Re ply Port;/* message reply port */ 

UWORD mn,Length; /* length ot the message in bytes */ 

I; 

{The Msgfort and Message structure definitions are found in the 
include file "exec/ports.h".) 

You must put a Message structure at the top of any data structure 
you wish to send as a message. For example, if you wished to 
send a message containing an (x,y) coordinate, your structure 
could look like this: 



struct MyXYmsg 
struct Message AnyName; 
short Xcoord, Vcoord; 

The "^Message" structure is the system linkage part of the 
message, and the information following it is the body of the 
message. 

It is important to understand what happens when a message is 
"sent" to a port. The data is not actually moved from one area of 
memory to another; the port simply gets a pointer to the 
message data. In other words, messages are passed by refer- 
ence, not by value. You can think of a message as a temporary 
licence for another task to use a space in the data segment of 
your task - you put the information you want in Ehe message, 
then allow the other task access to that information by sending 
the message. 

Since both the task sending the message and the task receiving 
the message have access to the same data at the same time, it is 
important that the sending task doesn't change the contents of 
the message structure while the receiving task is trying to read 
it. This is where message replying comes in. After sending a 
message, a program generally waits for a reply from the task that 
received it. A reply is just a message that the receiving task 
sends to a designated port, called the reply port (the reply port 
can be the same port that received the original message). After 
sending the message, the sender should not modify the contents 
of the message structure until it gets a reply; at that time, the 
receiving task has finished with the message and should no 
longer try to access data within it. The receiving task, on the 
other hand, may change the message before it replies so that it 
can send new information back to the sender. 

To make things a little more concrete, here are algorithms that 
could be used to send and receive messages. 

In order to send a message to a specific port: 

1) Create a port • port = CreatePofl(name, priority) 

or get a pointer to an existing port •port = FindFort(name) 



2) Put desired data in a message structure 

3) Send the message to the port • PutMsg{port, message) 

4) (optional) Wait for the reply • WaitPort(ReplyPort) 

5) (optional) read data in reply message • message = 

GetMsg(RcpiyPort) 

In order to receive a message from a specific port: 

1 ) Create a port • port = CreatePort(name, priority) 
or get a pointer to an existing port • port = FindPort(name) 

2) Wait for a message to arrive at the port • WailPort(port) 

3) Get a message from the port • message = GetMsg{port) 

4) Read data of interest in the message 

5) (optional) Reply to the message • ReplyMsg(message) 

6) Do whatever action is dictated by the message data 

7) Repeat 3 through 6 until there are no more messages 

As you can see, the code required to ^end. and receive messages 
is not all that complicated, but you can get into trouble if you're 
not careful. Remember that the data in a message should only 
be changed by the task that currently has "ownership'' of the 
message. The task sending the message has ownership at all 
times except after sending the message and before receiving the 
reply. The task receiving the message has ownership only after 
getting the message and before replying. After replying to a 
message, you can make no assumptions about the validity of 
data in the message youVe just received. A common mistake is 
something like: 

msg = GelMsg(SomePort); /* get the message */ 
ReplyMs9(SomePorl); /* reply to the sender W 

X = msg->something; /* uh-ohl Bad news! */ 

The correct approach would be to reverse the second and third 
lines of code so that the desired data was fetched from the 
message before the reply was given. Once you reply, do not 
assume that the message still holds valid data - after the other 
task got the reply, it may have changed the data in the message, 
or released the memory used by the message back to the 
system. 

The Functions Used 

Let's take a look at the functions that were introduced briefly in 
the above section. 

The CreatePort{) function is not actually in the ROM kernal 
itself, but is a short "exec support" routine that is in the library 
"amiga.lib" ("clib" with the Aztec C compiler) and is linked with 
your program. It takes as arguments the name (a pointer to a 
string, or zero) and the priority of the port to be created (zero is 
normally used). It returns a pointer to the port that it creates (a 
pointer to a MsgPort structure). The function allocates a signal 
bit for the port (more on signals later), allocates memory for a 
MsgPort structure, initializes various fields in the MsgPort, and if 
the name given was not NULL, adds the port to the system with 
the AddPort{ ) function so that other tasks can access it - this is 
called a public port. Unless both communicating tasks have a 
pointer to the message port being used (as is the case with 
Intuition and an application program), a port should be made 
public so that any task can use it just by knowing its name. You 
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should try to ensure that the name you give to a public port is 
unique so that there will be no conflicts with other tasks. 

All ports created with CreatePorl( ) must be deleted with Delete- 
Port( ) before the task ends, DeletePort lakes a pointer to the 
port to be deleted as its only argument. 

FindPort{ ) returns a pointer to a port, given that port's name. If 
no port with the given name can be found, it returns NULL 
(zero). Using F[ndPorl{), you can send messages to a port 
created by another task, as long as you know the port name. 
Ttiis oniy works with public ports {those given a name when 
created with CreatePort( ), or added with AddPorl( ) ). 

PutMsg( ) sends a message to a port. It takes as arguments a 
pointer to the port and a pointer to the message, respectively. 

GetMsg( ) gets a message - if any - from the given port and 
returns either a pointer to the message, or NULL if there are no 
messages at the port. To get all messages from a port, you should 
call GetMsg( ) until it returns NULL. 

WaitPort( ) waits for a message to arrive at a given port, putting 
the task to ''sleep*' until one arrives. A sleeping task uses no CPU 
time. It returns a pointer to the first message to arrive at the port, 
but there may be more than one message at the port after 
WaitPort( ) returns. You should get all messages at the port after 
a WaitPort( ), as described above, WaitPort( ) does NOT remove 
the message from the port, so you must do a GetMsg() after- 
wards to remove it, 

ReplyMsgO sends the given message to its ''Reply Port", a 
pointer to which is contained in the Message structure. If you 
wish to use ReplyMsg( ), the 'mn_ReplyPort' field of the message 
structure must contain a pointer to a port; the pointer is normally 
put there when the message is prepared before it is sent. The 
same port that the message was sent to may be used as the reply 
port. 

Signals 

Just in case you feel disappointed because this topic is too simple 
for you to work your brain around, here's some more nourish- 
ment for cerebral satisfaction. You don't haue to know all about 
signals to pass messages as described above, but this section 
might answer a few questions that have arisen (and probably 
create as many new ones!). 

Signals are used to '*wake up'' a ^"sleeping" task. Each task has 
up to 32 signal bits that it can use. and it can wait for any of these 
signals to occur by using Exec's Wait( ) function. When a task is 
waiting for a signal it uses no CPU time, so signals allow many 
tasks to be active in the system at once, waiting for user input or 
other external events, without slowing down other, hard- 
working tasks. 

As you have probably guessed, signals play an important role in 
message passing. When a task is wailing for a message (or a 
reply to a message, which is no different), it is realty waiting for a 
given signal to occur. 



For a better understanding of how signals relate to messages and 
ports, let's take another look at the MsgPort structure, specifi- 
cally the fields called 'mp_Flags', 'mp_SigBit', and 'mp_SigTask', 

These fields are filled in when you create a port with the exec 
support function CreatePort( ). Exec uses the information found 
in ttiese fields in a port to determine what action to take when a 
message arrives at that port. CreatePort( ) sets up the fields so 
that your task is signalled when a message arrives at the port; 
You can set up a port structure yourself and use AddPort( ) 
instead of CreatePorI( } if you aren't going to use WaitPort( ) or 
Wait( ) to wait for a message to arrive at the port, and thus don't 
care about getting signalled. 

Let's look at the fields one at a time: 

UBYTE mp_Flags; /* defines message-arrival action •/ 

Depending on the value in 'mp^Flags', Exec will do one of three 
things when a message arrives at the port: generate a signal, 
generate a software interrupt (software interrupts will not be 
mentioned again in this article), or do nothing. The values 
corresponding to these actions are the constants PA_S1GNAL, 
PA_SOFnNT, and PA_1GN0RE, respectively (these are also 
defined in the include file "exec/ports.h"). The CreatePort() 
function uses PA_S1GNAL so that your task can sleep while 
waiting for a message to arrive at the port. 



UBYTE mp_SigBit; h signal bit number 



•/ 



We mentioned the fact that there are 32 signals that any given 
task can wait for. The 'mp_SigBil' field gives the number of the 
signal bit that is set when a message arrives at the port (if the 
PA__S!GNAL option is used). CreatePorl{ ) allocates a signal bit 
and puis the newly-allocated signal bit's number in this field. 

struct Task *mp_SigTask; h task to be signalled •/ 

Every task has its own set of signals. The 'mp^SigTask' field is a 
pointer to the task that is to be signalled when a message arrives 
at the port (again, this only applies if the PA_SiGNAL option is 
chosen). CreatePort( ) hlls this in with a pointer to the task that is 
currently running, in other words, the task to signal is "me", or 
''this task". 

Waiting for Signals 

Again, the above information is not necessary if you just want to 
pass messages. Knowledge about the 'mp3igBit' field, however, 
is useful if you want a program to wait for messages arriving at 
more than one port. 

We have discussed the WaitPort( ) function, which will put your 
task to sleep until a message arrives at the given port. An 
alternative is the Wait( ) function, which allows you to wait for 
one or more signals to occur. Wait( ) takes as an argument a bit- 
mask defining which signals to wait for. 

Since your task will receive a signal when a message arrives at a 
port, and since the number of the signal is indicated by the 
mp_SigBit field, you can use Wait( ) to wail on the signal instead 
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of Wa[tPort( ) to wait on the port. For example, lo wait for a 
message to arrive at the port "Sinurf^ (the name of a pointer to a 
MsgPori structure), you couid use: 



or, 



WaitPort(Smurf); 
Wait(1 L « Smurf->mp_SigBit); 



The latter statement has the same effect, but takes the signal bit 
as an argument instead of a pointer to the port. The advantage is 
that you can wait on several ports simply by using the bitwise 
OR of the signal bits in each port. For example, to wait for a 
message arriving at any of the ports '^Smurf^', "ThisPort". or 
'ThatPort": 



Wait ((1 L « 3murf->mp_SigBit) 
(1 L « ThisPort->mp_SigBit) | 
(1 L « ThatPorl->mp^SigBit)) 

You could then get any messages from all three ports and 
handle them in the usual way. 

The Talking Tasks Program 

Now comes the practical (sort of) application of the concepts 
weVe covered. The program that appears in the accompanying 
listing puts everything together and illustrates message passing 
for both the programmer studying the source code and the user 
playing with the program itself. 

Talking Tasks, as it is called, lets you create a community of 
tasks, each with its own name, and each with its own window. 
Each copy of the Talking Tasks program that is running has the 
ability to ''talk'' with any other copy by sending typed messages. 
Also, all talking tasks have access to a public message port 
called "Joe's Cafe", where they can discover how many talking 
tasks are currently running and use this information lo deter- 
mine the best place to put their window so that all windows will 
come up in a different location without having to be dragged 
around by the user. 

To use the program, enter, compile and link the C program 
listed, or otherwise get an executable copy of the program on 
disk, (Transactor programs tend to spread around, thanks to our 
public-domain software policy) This version was compiled with 
Manx Aztec C v3-40a - it will most likely work with Lattice, but 
hasn't been tested wkh that compiler. Also, it works with VL2 
Kickstart/WorkBench; it should also work with VI. 1 but it 
hasn't been tested with that version. The executable version of 
the program should be called "ttalk^' on disk for quick typing. 

Ttalk should be run from the CLl using the RUN command so 
that the CLl will still be available to run more ttalks. Ttalk takes 
one argument, which is the name you would like to give that 
talking task. As an example, lo create a small community of four 
talking tasks, you could type the following commands from CLl 
(make sure the "ttalk^' program is in your current directory). 

run ttalk Ernie 
run ttalk Edna 
run ttalk Jimmy 
run ttalk Berttia 



(You'll have to click on the CLl window after each RUN to re- 
activate it .J 

Notice that the small window for each program comes up in a 
different place, even though yon are running the same program 
each time - your first indication that the tasks are indeed talking 
with each other in some way. 

Now, let's say you want Ernie to talk with Edna. Activate Ernie's 
window (his name will be in the window's title bar) by clicking 
with the mouse, then address Edna and type your message, 
something like this: 

Edna,Gee you look [ovely today. 

You will see within Edna's window that she did indeed receive 
this flattering message from Ernie, and the message printed in 
Ernie's window indicates that Edna acknowledged the message 
- Ernie knows that his kind words were not falling on deaf ears, 
Edna can now send a message back lo Ernie, or anyone can 
send a message to anyone. For example: 

(click in Edna's window) Ernie,Get lost, creep! 

(click in Jimmy's window) Ernie.Hi pal. How's life? 

(click in Ernie's window) Bertha,Hey baby, love your nails, 

(click in Bertha's window) Ernie, You Scorpios are all alikcl 

Well, it's not impossible that eventually this great fun may wear 
out, but the point is clearly made: separate tasks are getting 
messages across to each other, and are also sharing some 

common data to determine where to put their window. While 
you're having fun, try sending a message to someone who 
doesn't exist (don't worry, it's safe); try giving talking tasks 
duplicate names; try sending a message to "Joe's Cafe"; sending 
a message to "yourself". 

To kill a talking task, just press return without entering any text. 

How It Works 

There are two kinds of communication going on among the 
talking tasks: the direct sending of messages from one task to 
another, and the sharing of information by all talking tasks at the 
port called '^Joe's Cafe". 

Joe's Cafe is used so that when a talking task is first run, it can 
find out how many others are already running and can use this 
information to decide on a reasonable place to put its window. 
The function HowMany{ ) determines the number as follows; it 
looks for Joe's Cafe using FindPort( }. If it is not found, it creates 
Joe's Cafe by allocating space for a MsgPort structure, filling it in, 
then using AddPort( ) to make it public. There is no need to use 
CreatePort( ) in this instance, since a signal is not needed for the 
port, as there will be no waiting for a message to arrive. A 
message is then created that contains the mandatory "Message" 
structure followed by an integer used to store the number of 
talking tasks currently running. This count is initialized to zero, 
and the message is put to the Joe's Cafe port with PutMsg( ). 

If Joe's Cafe already exists (it was found with FindPort( ) ), then 
the message is read with GetMsg( ). the count in the message is 
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looked up and incremented, and the message with Ihe new 
count is put back to the port for the next talking tasks to look at. 
Just as the first talking task to be run creates Joe's Cafe, the last 
one to exit removes it. The port is caiied Joe's Cafe because it is a 
place where all talking tasks hang out. 

While only the first task to be run creates the Joe's Cafe port, 
every task creates a port of its own, using the name given by the 
user when the program was run from the CLL So, the name of 
Edna s port is ''Eclna'\ and now you can probably guess the port 
names of the characters in any given talking task community. 
This port will be used to receive messages sent by other talking 
tasks, and to receive replies to messages sent to others. Unlike 
Joe's Cafe, this port is created with Ihe CreatePort() function, 
since it not only needs to be public, but it also needs lo use a 
signal so that WaitPort( ) can be used lo wait for replies. 

After HowMany( ) has been called to find the number of talking 
tasks currently living in the community and the message pott 
has been created, a DOS file is opened to create the window 
used for text input and output. The filename Is picked based on 
the number of tasks there are, so that ihe window will be in a 
different place every time the program is run, repeating posi- 
tions every six times (each window takes up one sixth of a 640 
by 200 screen). 

Now comes the hard part: the program must wait for input typed 
into the window by the user AND wail for any messages arriving 
at the port. If WaitPort{ } were used to wait for messages, user 
input would be ignored, and if Read( ) were used to get input, 
messages would be ignored. A simple approach is used to solve 
this problem: the DOS function WaitForChar( ) is used to wail up 
to a tenth of a second for a character to be typed by the user. If a 
character is typed, Read{ ) is called to read the text entered by 
the user, and the text is passed to a function called SendString{ } 
to be processed. Whether text was entered within the 1/10- 
second time frame or not, the message port is checked for 
messages with GetMsg( ). Messages are read until no more are 
found at the port. For each message read from the port, Ihe 
name of the sender and the text sent are read from the message 
body and printed to the window for the user to see. This loop 
repeats continuously until a single newline is typed, ending the 
program. 

This might not be the most high-performance way to read user 
input and messages from a port, but it works well and has no 
noticeable effect on system performance. If you wish, the 1/10 
second time can be increased (by increasing the value passed to 
WaitForChar( ) ) to make less demand on the CPU when the 
program is sitting idle- 
When something is typed by the user, the string is passed to 
SendString( ), which splits it into the name (the text before the 
first comma) and the message, then calls SendMessage( ). Send- 
Message() looks for the port with the given name using Find- 
Port( )- if the port is not found an error message is printed, and if 
it is found, a message is prepared and sent to the port. The kind 
of message structure used is called '^MyMessage" and is defined 
near the beginning of the program listing. A ^'MyMessage" 
structure has the usual '^Message'^ structure at the top, then has 
two pointers to strings: the name of the sender of the message, 



and the text that is to be sent. An instance of a MyMessage 
structure simply called "message" is declared in the SendMes- 
sage( ) function. This structure is filled in with the proper data, 
then sent to the previously-found port using PutMsg( }, Wait- 
Port( ) is then used to wait for a reply, and the reply message is 
removed from the reply port with GelMsg( ). A line of text is 
printed to the window telling the user that the reply was 
received. 

That's all there is to it. Look at the program listing to get a better 
idea of how everything's done; the code is easy to understand 
and well-commented. With the program as a sample and this 
article, you should have no trouble using messages and ports in 
your own programs. Not only will you have new ways to solve 
programming problems, but you will have learned about a 
fundamental mechanism within the Amiga's system software, 
and will come one step closer to mastering the machine. 
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'TTalk" -Talking Tasks 

- programming example using messages and ports 

(C) 1987 Transactor Publishing Inc. 

From Transactor Magazine, written By Chris Zamara, May 1987 

» This program may be freely distributed « 

This code shows you how to create and find message ports, and how 
to send, receive, and reply to rriessages. 

This program, ' TTaJk" , lets you create several named [X)S windows, and send 
messages beEween them. Just give each task its name when you run it 
from the CLI, e.g. " run TTalk Fred " . If you then start another task, 

like ■ fun TTalk Edna" , you can send Edna a message from Fred by typing 
into Fred's window something like, " Edna, you look lovely today! ' 
f dna will receive the message and pnnt it in her window. Any number 
of these tasks can be started, and any one can talk to any other. 

How it wod^s: A message port is created and given the name that the user 
supplies (the name in the window title). To send a message to another task, 
its port is found with FindPort( ), a message is sent to the port with 
PutMsgO, and a reply is waited for with WaltPort() Within the message is 
a pointer to the text that the user wanted to send. The receiving task 
uses GetMsgO in between waflmg for keypresses to receive the message. 
Ail talking tasks also have access to a puWic port called ' Joe's Cafe" . 
where they read a message saying how many talking tasks ^e mnning, and 
update the message when they are started and ended. By talking at Joe's 
Cafe, the talking tasks can determine a good place lo put iheir window so 
that the user doesn't have to always move around overlapping windows The 
first task started creates the " Joe's Cafe " port and the first message 
there, and the last task ended deletes them. 



• compiled with Manx Aztec 3.40a, should work with Lattice as well, 

# include <exec/types.h> 

fr include <exec/memory,h> 
#irclude<exec/ports.h> 
#irclude <libraries/dos,h> 

/• Print macro used to send a string to the output window •/ 
#define Pnnt[s) Write(IOfile, (s), (long]strlen(s) ] 

#define BUFLEN 200 h length of Input buffer for user text entry •/ 

/* this is the structure for Ihe message we will be sending */ 

struct MyMessage { 
struct Message Msg; h for Exec message routines */ 
char "NameOtSender; /- sender puts his name here */ 
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char *text; 



/* t^e text we want to send *i 



); 



/• this is the kind of message we will use to 

♦ determine how many talking tasks are currenHy running 

•/ 

struct Coun^sg { 

struct Message Msg; 

ini Counl; 

)■■ 

I* external funclk^n declarations »/ 
extern BPTR Open(), 
extern ULONGReadO; 
extern UBYJE-AllocMem(); 
externstructMsgPort-CreatePort{), *RndPort{); 
extern struct MyMessage 'GetMsgO; 

/• global variaWes "/ 

char 'MyName; /• ptr to name given to this talking task' 

struct MsgPort 'MyPorl = NULL; /* message porllor sending/receiving msgs 

s&uct MsgPort "TTport; /- port shared by all Talking Tasks 

char 'TTportName = ' 'Joe's Cale^ '; h name of TTport, where Wiey all hang out 

struct CounlMsg -TTmsg: /> the message we'll leave at Joe's Cafe 

BPTR laile - NULL; h DOS He handle for the terminal window 



/«•*«• start of majn() •w*'***'* '•«>•«>•••-•->■>> 4- >■'¥«*• ¥«•""•'«•«/ 

main(argc,argv) 

int argc; 

char'*argv; 

{ 

/* give user in^ruclions and exit if invalid args passed */ 

if(argc!=2[|strlen(afgv[1]l>30) 

! 

prirflJf 'Run me wilti a name, like: 'run %s Ernie'\n' '. argv[0]); 
exit(0); 

I 

MyName = argv[1]; /• first argument is name given to this "talking task' */ 

/• open DOS window, create ports, etc. and return TRUE if successful */ 

iffOpenStutfO) 

Handfelnput(); /• get input, send and read messages until user exits *i 
CloseStuffO; 



return (inl)FALSE; 

! 

/* the number of talking tasks running determines where to put ^le window */ 
strcpy(windowName, conNames[HowMany() % 6]]; 
stfcat( window Name, MyName); /^ 'f^lyf^ame' is tife for DOS window •/ 
lOfUe = Open(windowName, MODE_NEWFILE); /• open DOS wtndow for user 
l/OV 
if (lOfile = = NULL) /♦ file didn't open for some reason •/ 

return (inl)FALSE; 
/* print some instructions •/ 
Print(' '(send message with <name, message. . .>)' '); 



return (int)TRUE; h everything opened OK */ 



/* OpenStufff) '••¥>'**'*<*****>#>*'«•*>-■->■•«•*■>■■*« w* ****** #i#t 

• create 'MyRort' message port, call HowManyO and open DOS window 

•/ 

OpenSluffO 

{ 

static char windowName[501; /♦ hc^ds filename for DOS ' 'con.' ' window »/ 
t* this array is used to choose an appropriate window position */ 
staticchar *GonNames[] = { ' 'con: 0/0/3 19/65/' ' , ^ 'con;320/0/3 19/65/' \ 

' 'con.0/67/319/65/' ' , ' 'con: 320/67/3 19/65/' \ 
*"con:0/l34/319/65/^V'con.320/l34/319/65r^ 

J; 

/- see if a message port with the given name already exists •/ 
if(FindPort(MyName)) 

{ 

printfC 'Hey, here's already someone here called '%s'!\n' ', MyName); 

return (inQFALSE, 

I 

/- set up a message port with the given name and get a pointer to it */ 

MyPort ^ CreatePort(MyName, OL); 
[f{MyPort = - NULL) 

{ 
printf(' 'can't open '%s' poft!\n' ', MyName); 



) 



/• CloseStuff() **■*•*•*•***»*••••-•■•-•••»■•••*•*• t** *•»•*•*• ******* 
" U ndo what OpenStuff( ) and HowMany{ ) did 
W 
*/ CloseStuffO 

'f { 

•/ rf{IOfile) 

•/ Close(IOfile), /• close DOS window if open ♦/ 

*i !* decrease count in TTport message, remove port if count is zero */ 

•/ iffTTport = FindPortfTTportName)) 

{ 

TTmsg = (struct CounlMsg •)Ge!Msg(TTport); 

if (TTmsg-X^ounl--) /♦ slill more talking tasks, don't remove port -/ 
PutMsg(TTport, TTmsg); h put back message with decreased count •/ 



] /^we'rethelasttalkingtask, remove TTportandTTmsg •/ 
RemPortfTTport); /-remove the port -/ 
Freef^emOTmsg, (ULONG)si^eof(' TTmsg)); 

FreeMem(TTport->mp^NodeJn_Name,|ULONG)(slrlenfTTportName) + 1)); 

FreeMem(TTport,(ULONG)sizeof('TTport)); 

} 

} 

if (MyPorl) 

Delete Port(MyPorO; /" defete our main message port */ 



} 



/* Handlelnputf) ''**a«**«*4**''*^»^*'»«******a*a****a«*>''*«'>''*«**aa>'' 

- Get user input from window and any messages arriving at MyPort. 

" Text from the user is passed to SendMessage{). 

* Print text field of incoming messages, then reply to message. 

' Returns when user inputs a null text line. 

*/ 

Handlelnput{) 
{ 

char lnput6uffer[BUFLEN|; 
BOOLexiLflag^ FALSE; 
struct MyMessage -msg; 

/• We want to get keyboard input from the user AND get messages arriving 

* at our message port, and we don't want to waste much CPU time. 
' So we WaitForChar( ) and if no character is received within 1 /l 

* second, we read the message port, process any messages there, and try 

* again. This way we only GetMsgO every 1/1 second, which is cheap. 
•/ 

whiB(ex[Lflag = = FALSE) 

{ 
if (WaitForCharfJOtile, 100000))/* wail up to 1/10 second On micros)*/ 

! 

/* read an input line and send the message •/ 
if (Read(IOfile, InputBuffer. (longjBUFLEN) > 1) 

SendString(lnputBuffer); 
else 
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exiUlag = TRUE; /• newline bv Uself means user exit */ 



h now handle any messages for us at the port */ 

while (msg = GeiMsg(MyPort)) /• loop unlil all messages processed V 



Prime '^ rnessage from ' '); 
Prinl(msg->NameOfSender) ; 

PrinK":\nV""}; 
Print(msg->1exq; 
PrintC ^' ^n' '); 

/♦ We took care of the message, now repjy to it, •/ 
ReplyMsg(msg); 



) 



I' SendSlring(text) ••'♦■■"■♦■♦■♦■**'****4*ti-fc"".»**.n%K*t*.,*,«»n* 

• Split the given string into two strings at first comma 

• and call SendMessage() with the resultant strings. 

• Print error message it no comma found. 

SendString (text) 
char ♦text; 



int NamePos, 



NamePos = SearchChar(texl, '.'.BUFLEN);/' check for comma*/ 
if (NamePos = = BUFLEN) /- no comma */ 
Print(' '{send message with <name,message. . >)' '); 

else 

/' split string into two and give strings to SendMe3sage{) •/ 
texiJNamePos] ■= '\0'; 
text[SearchChar(tex!, '\n', BUFLEN]] = '\0'; 

SendMess3ge(lext,text + NamePos + 1); 



} 



} 



!■* SendUessage(name, msgslring) »<****> ,**.,*,♦,*#**,*,,„ 

• Given a port name and a text siring, find The port and send a 
' message containing the string to it, and wait for a reply, 

•/ 

SendMessage (name, msgstring) 

char -name, * msgstring; 

I 

struclMsgPort'HisPorl; 

slriKit MyMessage message; 

HisPort = FindPort(name), /- fook tor other fellow's message port •/ 
if (HisPort - = NULL) A NULL means port couldn't t^e found */ 



PhntC'Can'tfind "); 
Print(name); 

PrintC'!\n"); 

! 

h error if message being sent to ourselves •/ 
elseif(strcmp(name, l^yName) = = 0) 

Print(^ Talking to myself. , . OKi\n' '); 
elseit(slrcmp(name, TTporlName) = = 0) 
{ /• don't send to Joe's cafell »/ 

PnnlC 'Oh no you don't!\nHumans aren't allowed at ' '); 

PrintfTTpory^ame); 

PrintC An' '); 



else I* everything's OK, prepare the message and send it to his port •/ 



I 



message. Msg.ma,Node.lrLType = NT_f^ESSAGE; 

message. Msg. mn_ Length = sizeof(message); 

message. Msg mn_ReplyPor1 = MyPort; 

message. N am eOfSender = f^yName; 

message.text = msgstring; 

PutMsg(Hi5Poft, ^message); 

WaitPort(MyPorl); 

Get(^sg(MyPort]; 

Print(' ' <Got acknowledgemeni from ' '); 

Pfint{name); 

PrintC ■>\n^ "); 



/'for Exec list handling 
/• number of bytes in msg 
/* so receiver can reply 
/• tell him who sent it 
/* our text string to send 
/♦ send the message 
/• wait for a reply 
/• remove reply from pal 
/• tell user we got reply 



} 



/• SearchChar{string. chr, n) •*•■■<" •«««***#«...«..«.•..•......* 

• find character 'chr' in 'string', searching up to n characters 

' return n if character nc^ found 

*/ 

SearchChar (string, chr, n) 

char 'String, 

int chr, n; 

( 

inti, 

for^ =0;i<nSS.stnng[i]i=chr,i++) 

9 

return (i); 



} 



* Determines how many 'talking tasks' are currency in the system. Look for 
" a port named TTportName (Joe's Cafe). If it exists, get a 'Countf^sg' 

*■ message from it, read the count, increment it and put the message back. If 
' the port doesn't exist, create it and put a message there with the count 

* field set to zero. Return the value of the count. 
*l 

HowManyO 

{ 

int CO jnt; 

if(TTport = FindPortOTportName)} 

TTmsg = (struct Countl^sg ')Getfv1sg(TTporl); !*■ get message. , , ■/ 
count = ++TTmsg"X;ount; /'bumpcounl., */ 

PutMsg(TTport, TTmsg); /• and put it back *l 

! 

else 

{ /* port not tfiere. we are firS talking task - create the port */ 

Hport = (struct MsgPort-)AilocMem({ULONG)sizeof("nport].MEMF_PUBLIC); 
TTport'>mp_Node.ln_Name = (char«) 
AllocMem((ULONGKstrlen(rTporlName) + 1), MEMF_PUBLIC); 

sire py(TTport->mp_ Node ln_Name, TTportName); 

TTport->mp_Node.ln_Pri = 0; 

nport->mp,Node.ln_Type = NT_(^3GP0RT; 

nport->mp^Flags = PA_IGNORE; 

AddPort(nport); /* make the port public so all tasks have access •/ 

/' now create the message to put in the port (Joe's Cafe) -/ 
nmsg - (struct CountMsg')AlfocMem((ULONG)sizeot(-TTmsg),MEMF_PUBLIC); 
TTmsg->Msg.mn_Node ln_Type = NT_MESSA6E; h for Exec iist handling '/ 
TTnnsg-> Msg, mn^ Length = sizeof( 'TTmsg); /- number of bytes in msg *! 

TTnnsg->Msg.mn_RecrfyPort = NULL; /» no reply port required *■! 

TTmsg-X;ounl = count = 0; /-start count at zero -/ 

PulMsgOTport, TTmsg); /• leave a message at Joe's Cafe for everyone */ 



1 



) 

return count; 
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Amiga Dispatches 

by Tim Grantham, Toronto, Ontario 



Rattigan wrongigan? 
Shepherd led the flock astray? 
Reign of Error over? 

Such were the iurid headlines that flashed through my mind when I 
heard the news of the latest corporate spasm at CBM. I mean, really, it's 
getting to be worse than Doflas. Big Daddy Gould ('Irving' to bis friends 
and detractors) stepped in and forced CEO Thomas Rattigan, who had 
just had his contract renewed for five years, to resign after having had 
him physically escorted from Commodore HQ. Vice-President Nigel 
Shepherd was also dismissed. 



The new pricing also evens out the Amiga product profile, placing the 
500 where it can still compete with the Atari ST as a home computer, 
the 2000 where it can provide the power required by the business and 
the professional user, and the 1000 squarely in the middle as an 
advanced personal computer that can still fulfill its initial promise as a 
tool for creative compute risis. 

Meanwhile, in-house development has not come to a standstill. 1 ,3 of 
the Amiga OS is being written and is reported to consist mostly of 
further optimization and the ability to boot frojn a hard drive (a new 
boot ROM might need to be installed for this). Don't expect to see it 
soon. Tim King, the author of AniigaDOS, is apparently busy rewriting 
the BCPL code into assembly language, making it faster and easier to 
interface with. A custom memory management unit for the 2OO0, 
required to run UNIX, is being put into silicon as you read this. Last, 
and not least: although CBM shut down their Commodore- Amiga 
headquarters in Los Gatos and terminated all but two of the employees, 
they have opened a small C-A office in that city. There, Bart White- 
book, Manager of Amiga ROM Software, has been joined by Daie Luck 
and Carol Havis, Manager of Third Party Software (and also spouse of 
R, J. Mical and mother of Alexander Jose Mical). Tliey are chatted with 
maintaining, enhancing and developing the ROM software. It's good to 
see that CBM has not completely shut down R&D. 

Shareware and the Public Domain 



The official reason was that Rattigan had let the US market deteriorate 
to the point where West Germany had become CBM's biggest source of 
customers. Thai he had also overseen CBM's return from the brink of 
bankruptcy to profitability in the last three quarters apparently counted 
for naught. 

Commodore's European and Canadian operations have almost always 
done well — it's the US that has proved to be their Achilles heel. Thi.? 
may be the rationale behind Rattigan's and Shepherd's replacements: 
Alfred Duncan and Richard Mdniyre. Each has been a chief of CBM 
Canada and Duncan also headed up the Italian branch. With Gould 
acting as CEO, it is hoped that they will help CBM find the golden touch 
once more in the US. 

Rattigan is suing CBM for $9 million, the claimed worth of his now 
defunct contract. CBM's stock has dropped in price from $12 to $10, 

The recent change in the announced prices of the Amiga 500 and 2000 
may be the result of this management shakeup. The 500 has increased 
$50 (US) to $700, $200 more if you want 1 Mb, and the 2000 has 
jumped a whopping $500 to $2000. 

Naturally, I'm disappointed in the higher price of the 2000. However, I 
think it may be a smart thinking on the part of CBM, for several 
reasons. One. those who have the need and the bucks for hard drives, 
bridge cards, 68020/68881 cards, et cetera, that can be easily added to 
the 2000, will not balk at paying an extra $500 — they're still getting a 
very high performance machine for less than two grand. Second, and 
more important from a strategic viewpoint, it will make it more 
attractive to dealers, 1 suspect a large portion of that extra $500 will be 
passed on as markup. Not only does it give dealers more room for 
competitive pricing, it provides the revenue they will need to pay for the 
support buyers of the 2000 will demand. If CBM is indeed serious about 
rehabilitating their dealer network in the US^ they will also improve 
their technical support, their advertising and their product availability. 



There is no doubt in my mind that the very high quality of Shareware 
and PD software for the Amiga has contributed significantly to its 
survival. The Fish collection, the Amicus library, even our first Transac- 
tor Amiga disk, have filled in the gap between expensive commercial 
offerings and homebrew AmigaBasic programs. They have provided 
not only useful software at low cost but absolutely invaluable program- 
ming info in the (usually) accompanying source code- 
However, I don't think this will continue, at least not at the same level. 
The unfortunate reality is that those who have relied on the honesty of 
others are not getting their just reward. Authors like Hayes Haugen 
(Blitz!, Blilzfonts), Rick Stiles (Uedit) and the Software Distillery 
(PopCLI, Blink, Hack, Larn) have seen little return on the faith they 
have placed in the Amiga user. If you want 'em, folks, ya gotta pay for 
^em.TANSTAAFL 

My personal favourites out of the current crop, besides the aforemen- 
tioned ones, are cunman, by William S. Hawes, and Steve Drew's 
aux2. 

The former slips into the CON: device and provides a command history 
and line editing. Any program thereafter that uses the CON: device will 
also have these features. Its not nearly as powerful as Malt Dillon's csh 
C shell, but it takes no time to learn, uses a miniscule amount of 
memory and I couldn't live without it, 

aiix2 sets up an AUX: device on the serial port. Another user can 
connect a terminal, either directly or via modems, and operate the 
Amiga remotely on a CLI opened on the serial port — thus fulfilling, 
within hmitations, the original promise of the Amiga as a multi-user 
machine. You will not gel Amiga graphics on the terminal's screen. For 
example, you can call up a new CLI by entering the newcU command, 
but the new window will be appear on the host Amiga. CU's only deal 
with character data. Only those programs that use stdin, stdout and 
siderr will work directly with the terminal. 
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So what's it good for? Currently, not a great deal. One could probably 
play text-only adventure games remotely. You could con^plle a C 
program remotely — though all your source, include and link files 
would have lo be on the host machine. (If your terminal program had a 
buffer send function, you could upload your source code by entering 
copy ' to df l:tesLc). You could snoop in your friend's files, or your 
own when you're on a trip. But until there are Amiga programs that 
send to/receive from a terminal-type device, it's not going to be of 
great use. 

Nevertheless, it works, it has potential and it^s impressive. Anybody out 
there have other ideas for it? Let me know, 

(Michael Rosenberg, of Conceptual Computing here in Toronto, has 
written a much more elaborate system that combines several modules 
lo permit an unlimited number of terminals to be hung on the serial 
port, via a multiplexer. Each terminal can open multiple windows and 
run multiple tasks. Each 'window' on a terminal consists of a screen; 
they cannot he resized. They can, however, be pushed behind each 
other. The programs run must be text-based, but Rosenberg's software 
permits input/output redirection between programs and more sophisti- 
cated editing capabilities than aiix2. Ed, lor example, can be run 
remotely on multiple terminals, providing enough memory is available 
on the host Amiga. Rosenberg expects that most of those interested in 
his system will be writing their own application software. The complete 
package costs $150 (Can.) For more info, you can reach Rosenberg at 
(416)781-7742.) 



Not quite in the headline category are demo versions of commercial 
software. These can still be useful, even though they are usually 
crippled to some extent, Disk2Disk, for example, is from Central 
Coast Software, the same people who wrote Dos2Dos. Di8k2Disk 
can transfer files between AmigaDOS disks and 1 54 1 /71 disks for the 
the C64/128, Note that it cannot tun these programs — you would 
need a C64 emulator for that. But you can copy, read, list. . . There is 
also a feature that will check incompatibilities between Commodore 
BASIC programs and AmigaBasic programs. Tve been able to use it lo 
remind myself of all the things I could do on my C64. It costs $49 95 
(US). 



And now, hot off the nets, . . 

ACO, developed by a team headed by Steve Pietrowicz (CBM STEVE of 
PeopleLink's Amiga Zone), in an Amiga online conferencing program 
inspired by VMCO for the Mac. It can be downloaded from Plink. . . 
Mike Plitkins and f^alph Navarro of Top Disk Sohware are hard at work 
on a CP/M emulator . . There are new versions of Electronic Arts' 
Deluxe Music Construction Set and Deluxe Video Construc- 
tion Set out. Bugs have been reported, particularly when using them 
with hard disks. EA is following them up with fixes. . , 

Data Pacific is working on an external disk drive that attaches to the 
serial port to read Mac disks. . . Look for DesignTexl, an $80 (US) 
word processor from Briaii Niessen's i^roup in Vancouver. . . PageSet- 
ter appears to be getting good response from its owners. They now 
have a PostScript utility available and have made their PagePrInt 
freely copyable; you can expect lo see user group newietters being 
distributed electronically in PageSetter format. . . Morerows is a 
neat little PD program that enlarges the available screen area for 
printing. You can now have a full 80 columns in your CLI. . . Word 
Perfect is finally due to arrive this summer. It won't be cheap, but it 
will be powerful. Response from beta testers has been very positive. . . 
Stargiider, by England's Jez San, has crossed the ocean at last. . . 

Oxxi has a new version of MaxiPlan Plus ready and Marco Papa has 
introduced A-Talk Phis which, among other things, adds Tektronix 
terminal emulation. , . Joe Lowery of New York is busy organizing 
AmiExpo, which will take place October 10-12, 1987 at the Sheraton 



Hotel in the Big Apple, li will be followed by an LA version Jan. 22-24 
and a Chicago appearance July 22-24, both in 1988. . . Excellent 
Amiga book: Prngmmmer^s Guide fo (he Amiga, by Rob Peck, a 
mt;mber of the original Los Gatos development team. It's published by 
Sybex, 

Amiga-Tax ($59.95) is a Canadian income tax calculation program 
from Imagec Software Productions, I used It to check my own return. It 
did everything perfectly, until it got to Schedule 1, the detailed tax 
calculation. Here, unfortunately, it inverted two numbers on the second 
line, the end result being that it said I owed less lax than [ had paid. In 
addition, my copy had a major bug in the tax records forms. This 
appears to be a well thought-out, carefully implemented program. 
However, those who tackle this kind of task have to be extra careful. If it 
can't be trusted right from the word go, it won't be bought. 

The new version of Online! (2.00) adds Kermit protocol and autochop, 
among other features. Owners of earlier versions can upgrade for a 
small fee. Note that publishers Micro Systems Software have changed 
their address. Their new technical support number is (305) 790-0772, 

Perhaps they'll be able to help me. 1 have the new version of Scribble^ 
the word processor for the Amiga. It has a number of improvements, 
but has taken a step backwards in its support of multiple windows. In 
the previous version, I could have a full four windows open, although 
sometimes there apparently wasn't enough memory for the directory 
requester. Now it's totally inconsistent: I can call up a 100k buffer from 
the CLI, but not from within the program. 1 managed to get two 64K 
buffers open, but no directory requesters. 1 opened a 30k buffer and a 
16k buffer but could only call up the directory requester once. I was not 
able to open any more than two buffers at any lime. If there has been a 
fix to this, MSS has not attempted to contact me and I'm a registered 
owner. 



A new rote for the Amiga? 

rd like to finish up with a speculation. 

Currerit Amiga owners have a high degree of computer literacy. Despite 
efforts to make it a friendly machine, its power and its price have placed 
it out of reach of the home computerist. Whether that will change with 
the introduction of the 500 is debatable, although I hope and believe it 
will. Where the Amiga ujill find a niche, is in the narrowing gap 
between high-end personal computers and low-end engineering and 
graphic workstations. The Sun systems, for example, were originally 
designed and marketed as technical workstations. Yet, some 300 third- 
party business and desktop publishing programs have been developed 
for it- Meanwhile, the Mackintosh 11 has obviously been aimed at the 
workstation market and IBM^s Personal System 2 will eventually have a 
windowing interface on a multitasking OS, 

It's becoming apparent that users want high resolution, colour graphics 
for their personal computer in addition to speed and multitasking. The 
Amiga places this kind of power in the hands of humble individuals like 
me and you. It has the multitasking and windowing interface of the 
workstation and the low cost, mass market appeal of the personal 
computer. 

1 think that the most important development for the Amiga, then, will 
be in the areas previously dominated by much more expensive ma- 
chines: computer-aided design, computer-aided engineering, artificial 
intelligence, audio-visual control, animation and publishing. 

Try lo remember that prophecy for the next five years and check my 
prognostication. 

Any comments? Send them lo me c/o The Transactor, on CompuServe 
71426,1646 or PeopleLink AMTAG. 
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Mr. Ed 



A Modular Text Editor For The Commodore 64 



Chris MUler 
Kitchener, Ontario 



About Mr, Ed 



Editing Commands 



Mr. Ed is an ASCII source editor/word processor. With it you will 
be able to create and modify large bodies of text effortlessly. The 
format of this texf is very simple: only a carnage return, ie. 
CHR${1 3), separates one line from the next. There is no token)- 
zation, and no line numbering or link addressing as is the case 
with source written on the Basic editor There is also no wasted 
or filler space as is the case with many word processors. 

Assembly language source written on Mr Ed will require less 
memory than if it had been written in Basic style. Converting an 
assembler like SYMASS to handle this source would be an easy 
thing to do indeed and probably reduce the complexity, while 
increasing the speed and reliability, of the program. 

Mr Ed is designed to provide a springboard for individuals who 
would like to create their own custom, top notch text editing 
environment without all the grind-work and nit-picking and 
preparation involved in laying a foundation. 



! . The CRSR keys work pretty much the way you would expect. 
Use them to move (the cursor) or scroll (the window} up, down, 
left and right. You cannot CRSR out of the range of entered text, 

2. The INST/DEL key is used to Insert and delete one character 
at a time just the way it is in Basic. 

3. The RETURN key is non-destructive and does nothing but 
advance you to the next line. 

4. Fl deletes whole lines to the right and can be used to join two 
lines as well. 

5. F2insertsaline. ie. aCHR$(13)Jtcanbeused tosplitaiinein 
two as well as open up space. 

6. F3 and F4 allow vertical page scrolling. F'3 takes you down 
and F4 up one screen at a time. 



What You Get 



7. F5 and F6 control horizontal paging.F5 moves you one screen 
to the right and F6 one screen to the left. 



Although Mr. Ed is just less than 1 K of code it is in some respects 
aheady a fairly sophisticated little package. Full bi-directional, 
four-way scrolling and paging is supported. Lines may be up to 
250 characters long. The effect is like typing on a very long, 
wide document. Your screen "window^' to this document moves 
side to side or up and down as you require. 



The Status Line 



8. RUN/STOP exits to Basic where any immediate commands 
may be used, ED<RETURN> will put you back in the editor. 

Going up or down to a new line always places you at the 
beginning of it, ie. full window left. 

If you would rather have other keys do these things simply 
replace their character values in the command list at the end of 
the code with ones of your choosing. 



The current line and column of the cursor and the number of 
free bytes of memory remaining are constantly updated on the 
status line at the top of the screen. The number of lines available 
is not fixed as with most word processors but depends on their 
average length; a blank line requires only one byte of memory. 
You can type right out to column 250. Just under 39,000 bytes 
will normally be available as work space. 

Loading and Saving Text 

Text may be loaded and saved via the Basic LOAD/SAVE 
T1LENAME",8 commands. Pressing RUN/STOP while in the 
editor will automatically return you to Basic where these or any 
immediate commands may be given. The Basic command 
"ED"<RETURN> will recall Mr. Ed with old source or newly 
LOAD'ed source in memory. 



Tricks With IVlemory 

Mr. Ed uses Basic pointers to define its own work space. 
Therefore you should always use the Basic NEW command 
before calling Mr. Ed for the first time, or to clear old text. 
Utilities which lower the top of Basic (55-56) will also be safe 
from Mr. Ed. You may create space for Basic programs by raising 
the bottom of Basic (43-44) before invoking Mr Ed- The last 
byte of text entered will be pointed to by Basic's SOV pointer 
(45-46) during and following any work session. 

Check It Out 

L0AD'^MR.ED",8,1 ;to put the machine code in memory 
NEW ; just to clear some of Basic's pointers 

SYS52000 ; runs the program 
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Use Mr Ed to write a lerfer to your Grandma. Mr. Ed is a What- 
You-See-[s-What-You-Get word processor. As you type past 
column 40 the screen window scrolls along with you. Don't type 
past column 80 if your printer can't handle it. 

Printing Text 

When you>e all done press Run/Stop to return tu Basic, Next, 

SAVE" LETTER \8 

Now run the following short Basic program with your printer on. 
Don^l bother typing the REM statcments. 



1 00 pg - 55; rem lines per page 

110 open 4,4,7 

120 open 5.8,5;'letter'' 

130get#5,a$ 

1 40 X = St: rem save status 

150print#4,a$; 

160if a$-chr$(13)thenfc = lc+1 

17Diflc<>pgthen200 

180getk$:if k$ = ^"'then180 

1 90 Ic = 0: rem initialize line count 

200ifx<>64then130 

21 print#4: close4; closeS 



Your letter will be printed exactly the way it appeared on screen. 
Tomorrow you can LOAD "LETTER'\8 back in and modify it a 
bit for your other Granny. 

The above program could just as easily be written in assembler 
by anyone familiar with Kernal Rom. It would run quite a bit 
faster and could even be added as a command to Mr, Ed- 
Season To Taste 

Those who copy or otherwise acquire the source for MrEd will 
be able to modify screen and text colours, screen window size 
and position, paging distances, maximum line size, and much 
more just by changing a few constants. 

Create Your Own Recipes 

The beauty of Mr. Ed lies in its highly structured design, and in 
its compactness and compatibility with Basic, New commands 
can be added to the source almost effortlessly. To introduce a 
new feature simply tack on, to the command list at the end of the 
source, the character value of any key press followed by the 
address-1 of the routine you would like executed when this key 
is pressed- A normal RTS from your routine will return control to 
Mr.Ed'smain key scan loop. 

Let The Fun Begin 

My favourite phase of program development comes when all the 
fuss work is done and further coding involves primarily macro- 
like calls to existing routines. A little programming can go a very 
long way at this point and debugging is greatly simplified (by 



using stuff that already works). Mr. Ed is in just this stage of 
development. Although it may be considered by some to be a 
beautiful and complete, albeit simple, little text editor, 1 like to 
think of it as a pre-fabricated super-duper editor. 

Some Staple Routines 

Mr. Ed's WINDOW routine is the real workhorse and is used to 
move ASCII text from the buffer to the screen window. The TOP 
pointer will be set to point to the start of a text line. This line will 
appear at the top of the screen. TOP determines the vertical 
position of the window. The SHIFT variable determines the 
horizontal position of the window for left/right scrolling. DISFLG 
is used to enable/disable the window for operations where 
having display constantly updated may not be desirable (ie. 
speed is of the essence). 

The LEFT and RIGHT routines allow lateral motion across any 
line; and UP and DOWN cause vertical travel through the text 
buffer, always to the start of a line. All display and pointer 
positioning overhead is taken care of. 

FINDEOLN returns in .Y the number of characters remaining in 
the current line of text (as pointed to by TXT). 

INSERT and DELETE are used to open up and remove space. 

The MESSAGE routine can be used much the way Basic's PRINT 
command is. All ASCII text following JSR MESSAGE will be 
printed. This text must be followed by a zero byte; execution 
resumes on the byte following the zero. 

There is no point in duplicating source comments here. If you 
decide to tinker with Mr.Ed, and I hope you will, you may want 
to check out the uses of its various pointers and variables for 
yourself. 



A Project For ML Programmers 

I would really love to have added SEARCH & REPLACE and 
CUT&PASTE commands, and even SPLITSCREEN and MULTI- 
BUFFER modes to Mr, Ed (and probably will someday), but 1 
promised myself that [ would keep this version short and sweet, 
and allow you to develop your own highly personalized editing 
tool. 



Editor's Note Regarding The Source Code 

Chris Miller is the author of the Buddy System-64 and Buddy 
System-128 assembler/ editor package, available through Pro- 
Line Software. Buddy is a assembler that follows PAL format plus 
adds many more features for the ML programmer. In keeping 
this in mind, you will realize why Chris wrote Mr. Ed in Buddy 
format. For the magazine, though, we decided that we should 
stay with PAL format. On this issue's diskette we will include 
both the PAL and Buddy source files. 
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Mr. Ed: BASIC Loader 



PD 
CG 
DL 
KH 
WG 

CC 

lA 
CK 

IF 
JG 
MG 
LG 
NP 
FC 
OL 
FO 
AA 
BN 

m 

Fl 
LD 
MJ 
GJ 
KP 
BG 
MJ 
OA 
PO 
EJ 
KC 
EA 
MK 
DP 
LF 
NO 
FO 
PF 
CF 
CH 
IG 
IG 
MC 
KM 
ML 
NP 
IM 
NK 
EC 
HL 
IB 
BB 
IG 
DO 
DF 
OA 
DC 
LG 



1000 rem save "Oiedldr " ,8 

1010 rem by Chris miller- kitchener, Ontario 

1020 rem mr.ed - a text editor for the c64 

1030: 

1040 for j = 52000to53022: read x: poke i,x 

: ch = ch+x; next 
1 050 if Choi 34753 then prim " checksum 

error! " : stop 
1060 sys(52000): rem fire-up mr.ed 
1070; 

1080 data 169, 128, 141, 138, 2. 169,228, 141 
lOSOdata 4, 3.169,206,141, 5, 3, 169 
llOOdata 9,141, 17,208,162, 6,142, 32 
1110dala20e, 169, 1,141, 33,208, 32,198 
1120data206, 5.147. 14, 8,158, 0,142 
1130data 33,208,169, 27,141, 17,208,169 
1140dala 0,162, 7,149, 2,202, 16,251 
1150data 32, 63,206, 32,187,204,169,203 
lieOdata 72,169, 93, 72, 32, 75,205, 32 
n70data121,206, 32,228,255,240,251, 32 
1180data 75,205,217,248,206,240, '9,200 



39,144,244, 176, 
72,185,249,206, 
13,240, 12,165, 
6, 165, 3,201, 
86,205,144, 5, 
54,224, 13,240, 



9 
72 

4 
39 
32 
84 

3 
62 



1190 data200, 200, 192, 
1200 datal85, 250, 206, 
1210 data 96,170,201, 
1220 data 201, 210,208, 
1230 data 240, 64, 32, 
1240 data 136, 205, 176, 
1250data160, 0,177,253,201, 13,208, 
1260 data 32, 99,205,138,145,253, 32, 
1270data205, 145,251, 32, 43,206,152,240 
1280 data 25, 230, 253, 208, 2, 230, 254, 165 
1290 data 3,201, 39,208, 5,230, 4, 76 
1300 data 187, 204, 230, 3, 230, 251 , 208, 2 
1310dala230,252, 96,198, 4, 76,187,204 
1320datal65, 3, 5, 4,240, 21, 32. 51 
1330 data 205, 165, 3, 240, 238, 198, 3, 198 
1340 data 251, 165,251,201,255,208, 2,198 
1350 data 252, 133, 251, 96, 32, 43,206,138 
1360 data 145, 253, 32, 43,206,168,240,243 
1370dala 32,159,204, 32, 43,206, 32, 40 
1380 data 205, 230, 5, 208, 2, 230, 6. 165 
1390data 2,201, 23,208, 3, 76,146,204 
1400data230. 2,165,251, 24,105, 40,144 
1410 data 2,230,252,133,251, 96,165, 5 
1420 data 5, 6,240, 67,198, 5,165, 5 
1430data201,255,208, 2, 193, 6, 165,253 
1440 data 56,229. 4,176, 2,198,254,133 
1450dala253, 32,159,204,160, 1,132, 8 
1460data136, 32, 51,205,177,253,240, 8 
1470data201, 13,208,245,198, 8, 16,241 
1480 data 230, 253, 208. 2, 230, 254, 165, 2 
1490data240, 14,198, 2,165,251, 56,233 
1500 data 40,176, 2,198,252,133,251, 96 
1510data160,255, 198, 64,136,177, 63,240 
1520data 4,201, 13,208,247, 56,152,101 
1530 data 63,144, 2,230, 64,133, 63, 76 
1540 data 187, 204, 160,255,200,177, 63,240 
1550 data 236, 201, 13,208,247,240,230, 165 
1560data251, 56,229, 3,176, 2,198,252 



AP 
CD 
MG 
Jl 
GO 
NP 
LF 
EK 
FN 
LN 
LF 
AD 
FJ 
81 
MJ 
IP 
DG 
LC 
FA 
OJ 
KC 
CG 
PE 
CF 
NA 
HG 
CF 
BG 
El 
CK 
MP 
DL 
CI 
OG 
CI 
JP 
GM 
HP 
FN 
LO 
JK 
BM 
FK 
KO 
DB 
HN 
MP 
HE 
BN 
GN 
FE 
GM 
AE 
HG 
GC 
BC 
AK 
OA 
CA 
BK 
GF 



1 570 data 
1 580 data 
1 590 data 
1 600 data 
1610 data 
1620 data 
1630 data 
1640 data 
1650 data 
1 660 data 
1670 data 
1680 data 
1 690 data 
1 700 data 
1710 data 
1 720 data 
1 730 data 
1 740 data 
1 750 data 
1 760 data 
1770 data 
1 780 data 
1790 data 
1800 data 
1810 data 
1820 data 
1830 data 
1840 data 
1850 data 
1860 data 
1870 data 
1 880 data 
1 890 data 
1 900 data 
1910 data 
1920 data 
1 930 data 
1 940 data 
1 950 data 
1 960 data 
1970 data 
1980 data 
1990 data 
2000 data 
2010 data 
2020 data 
2030 data 
2040 data 
2050 data 
2060 data 
2070 data 
2080 data 
2090 data 
2100 data 
21 10 data 
2120 data 
2130 data 
2140 data 
2150 data 
2160 data 
21 70 data 



133,251 

2, 198 

3,133 

24,133 

72,165 

63,133 

112,206 

50, 1 96 

205,160 

32, 62 

242, 32 

34, 204 

251,104 

133,254 

240, 3 

251,200 

56,152 

133,253 

255, 208 

16, 8 

73, 64 

73, 128 

197, 46 

197, 45 

72,160 

136, 198 

2,198 

240, 233 

165, 46 

197, 55 

230, 46 

224, 203 

164, 8 
230, 253 
205,144 
104, 133 

165, 45 
2,198 

205, 169 
169, 32 

9, 32 
132, S 
102, 9 
208, 250 
32. 46 
102, 9 

206, 250 
32.187 
76,187 

208, 251 
177,253 

43,166 
232,133 

64, 165 

62,160 
208, 2 
144,242 
169, 40 

96, 32 
213,205 
101, 3 



,165, 


253, 56, 


,254, 


133.253. 


, 4. 


36. 9, 


, 7, 


165,254, 


,252, 


72, 165, 


,253, 


165, 64, 


,160, 


255, 32, 


, 4, 


144,247, 


,255, 


32, 51, 


.205, 


145,251, 


. 45, 


206, 32, 


,198, 


7, 208, 


.133, 


252, 104, 


. 96. 


32, 40, 


. 32. 


40, 205, 


,192, 


40, 144, 


.101. 


253, 144, 


. 96, 


198,253, 


, 2, 


198,254, 


, 73, 


128,201, 


, 96. 


72,160, 


.145. 


251, 104, 


,144, 


6, 208, 


. 96, 


165, 46, 


. 0, 


177, 45, 


, 45, 


165, 45. 


, 46, 


32, 86, 


,104, 


133, 45, 


,197, 


56, 144, 


.176, 


6, 230, 


, 96, 


169, 1, 


, 165, 


254. 72, 


,177, 


253, 160. 


.208. 


2, 230, 


,237, 


240,235, 


,254, 


32. 86, 


, 56, 


229, 8, 


, 46, 


76,187, 


, 13. 


208, 5, 


,145, 


253, 76, 


, 43, 


206, 152, 


, 32, 


162,205, 


,162, 


23, 32, 


,240, 


34, 102, 


,204, 


202, 208, 


, 162, 


39, 32. 


,240, 


10,102, 


,203, 


202, 208, 


,204. 


160, 255, 


, 96, 


200, 192, 


,240. 


2,201, 


, 44. 


24,105. 


,253, 


133, 63. 


. 45, 


133, 61, 


. 0. 


152, 145, 


,230. 


62, 166, 


, 166, 


61 , 228, 


.133. 


251,169, 


,198, 


206. 19, 


,206, 


58. 0, 


,170, 


152, 32, 



229, 3,176 

169, 0,133 

48, 83,169 

72,165,253 

251, 72,165 

133,254, 32 

51,206,240 

24, 32, 41 

206,240, 42 

192, 39,144 

40,205, 32 

212, 104, 133 

133,253,104 

205, 160, 

169, 32,145 

249, 176,215 
2, 230, 254 

165,253,201 

96, 73,128 

64,144, 2 

0, 177,251 

96,165,254 

4,165,253 

72,165, 45 

200, 1 45, 45 

201,255,208 

205,144,235 

104,133, 46 

6, 165, 45 

45, 208, 2 

133, 8, 32 

165.253, 72 
0, 145,253 

254, 32, 86 

104, 133,253 

205, 1 76, 11 

133, 45, 176 

204, 32, 99 

32, 99,205 

187,204,102 

208, 1 , 200 

76, 38,206 

2, 204, 202 

9, 162, 23 

250,240, 22 

224, 203, 202 

9, 162, 39 

250, 70, 9 
32, 51,206 

255, 240, 6 

13, 96.165 

2,144, 1 

134.254, 134 
165, 46, 133 

61,230. 61 

62,228, 56 

55, 144,236 

4,133,252 

195,207,204 

165, 4, 56 

205,189, 32 
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FP 

Ml 
DO 
FE 
EP 
BF 
LL 
OC 
HN 
IJ 
IG 
OH 
NA 
LO 
JA 
JA 
BE 
KE 



. 



2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 



data 198, 
data 0, 
data 200, 
data 32. 
data 56, 
data 45, 
data 206, 
data 104, 
data 208, 
data 32, 
data 165, 
data 69, 
data 208, 
data 148, 
data 205, 
data 3, 
data 3, 
data 204, 



206, 32, 
164, 6, 
152, 32, 
198,210, 

56, 229, 
170,152, 

32, 32, 
133, 61, 

2, 230, 
210,255, 

61, 72, 
208, 10, 

3, 76. 
220, 205. 
137,213, 
206, 135, 
1 22, 227, 
157,223, 



204,201, 
166, 5, 
205,189, 
197,197, 

46, 168, 
32, 205, 
32, 0, 

104,133, 
62,177, 

208,241, 
96, 1 73, 

173, 1, 

47, 203, 
20, 154, 

205, 134, 
27,206, 
17, 1, 

203, 29, 



206, 197, 58 

232, 208, 1 

32, 198,206 

58, 0,165 

165, 55,229 

189, 32, 198 

96, 160, 

62,230, 61 

61 , 240, 5 

165, 62, 72 

0. 2, 201 

2,201, 68 

76,124,165 

205,133,230 

247,205, 138 

139, 15,206 

204,145, 45 

186,203 



Mr Ed PAL Source Listing 



LC 
OG 

NM 

JC 

M8 

AJ 

EJ 

BF 

PH 

IE 

H 

cc 

GN 
EL 
AC 
GB 
FC 
OE 
HM 
IH 
GC 
MJ 
OH 
EL 
GB 
10 
PD 
MG 
JJ 
AE 
Gl 
GL 
HF 
JP 
GF 
BF 
DL 
NM 
CM 
EO 
FE 
HB 
KP 
AH 
OG 
IG 
fl 
IL 
OD 
EL 
AA 
GB 
HK 
AH 
NG 
FH 
FC 
AH 
CK 



1000 rem save'O.edpaf" a 

1010 open 8,8,1, '0.inred' 

102Osys7OO 

1030 oploe 

1040, "Mr Ed by Chris Miter Jul. 1986" 

1050; 

1060 , —conslants •■• 

1070 columns - 40 



lOaoiinestze = 250 

I090screenbeg - 1024 + 40 

llOOscreenend = £024 

mo rows = 24 

1120; 

1130; ttt important memory ■" 

1140 Vic - SdOll 

1l50bkg = 53281 

lieobor = 53280 

1 1 70 rptkey - 650 

1180icrunch = S304 

1190input = S200 

1200, 

1210 ; ■•• rom rau1ine5-«- 

I220crunchsrv = Sa57o 

1230gelLn = $ffe4 

1240 prim - Sltd2 

1250 ready = $e37b 

I260civrtdec = Ibdcd 
1270; 

1280; t" variables*"* 

1290. = 2 

1300 vars = . 

1310row -c . + 1 

1320 col *= * + 1 

1330shift .= . + 1 

134Glfne -= . + 2 

135Gcnt .- . + 1 

1360num .- . + 1 

1370d"Sflg .= 4 + 1 

laeOuarnum = »-v^s 
1390; 
1400 , -•■ pointers'*' 



. screen si^e 
; max edtowed 

; lop ot text scF 

; end oftextscr 

; screenend-screenbeg/columns 



; screen row 0-24 
. screen col 0-39 

; oft screen left 
; text line counter 
; display line counter 
, general purpose 
, negative =^ no display 



■•• 



1410 p!r 

1420 top 

1430 sob 

1440eob 

1450 end 

1460b(l 

1470 scr 

1480, 

1490; 

1500. 

1510 

1530 

1530; 

1540 

1550 

1560 

1570 

1580; 



- 61 

= 63 

= 43 

= 55 

= 45 

= 253 

= 251 

beginning oi code 

= 520O0 

Ida #123 

sia rplkey 



; utilily pointer 

; top line ol tent window 

; slart of basic 

,end ol basic memory 

; end of text 

; current text position 

; current screen position 



.*. 



keys repeat 



Ida #<crunchwdQ , wedge for basic 

sta icrunch 

Ida #>crunchwdg 

sta crunch + 1 



FE 


1590 . entry for ed command Irom basic 


GK 


leoOsiart 


= • 




HE 


1610 


Ida #9 




GK 


1620 


sta vie ; 


. screen off 


EN 


1630; 






NJ 


1640 


Idy *6 


, blue screen 


GB 


1650 


stx bor 




JP 


1660 


Ida #1 


; while print 


JN 


1670 


sta bkg 




IF 


1680 


jsr message 


;y=o 


BN 


f690 byte5,147,14.8 156,0 




DF 


1700 


st^ bkg 




EC 


1710, 






PK 


1720 


Ida #27 


; screen on 


JB 


1730 


sta VIC 




CE 


1740, 






DC 


I750topoftext 


= . 




Lf^ 


1760 


Ida #0 




ML 


1770 


idx #vaTnum-l 


; init vars 


KG 


1780- 






JB 


1790b1 


sia vars,Ji 




PL 


1800 


dex 




KF 


leio 


bpi bi 




CJ 


1820, 






CM 


1830 


jsr initialize 




FO 


1840 


jsr window 




AL 


1S50, 






KK 


1860 ; main key 


scan loop 




FJ 


lB70getkey 


= . 


; always reiurnhere 


GM 


isao 


Ida *>getkey'-1 pha 


EN 


1890 


Ida Kgetkey-1:pha 


CO 


1900; 






EA 


1910 


jSr reverse 




GL 


1920 


jsr slatusline 


; line, col. mem 


AA 


1930; 






CC 


1940b2 


jsr get in 




LN 


1950 


beq b2 




OB 


I960-. 






JH 


1970 


jsr reverse 


;y=0 


CD 


1980; 






FJ 


1990; Check command keys 




JA 


2000 b3 


cmp commands,y 




CI 


2010 


bep found key 


; also sets carry 


P 


2020 


iny. iny in/ 




IM 


2030 


cpy ScojTiJTiandnuni 


JP 


2040 


bcc b3 




01 


2050 


bcs put 


;atyp>ngkey 


CI 


2060; 






DO 


2070 found key 


= • 


; jump to routine 


FD 


2080 


Ida commands + 2 


,y. pha 


LD 


2090 


Ida commands + 1 


,ypha 


AC 


2100 


m 




EL 


2110; 






GJ 


2120 , put character in text buffer 




LE 


2130 put 


-= w 




IN 


2140 


tax 


; save key 


BO 


2150 


cmp #13 




PK 


2160 


beqfl 




AP 


2170- 






ME 


2l80;see it line full 




KM 


2190 


da shift 




ID 


2200 


cmp #linesize-40 




MM 


2210 


bnell 




JN 


2220 


Lda col 




LF 


2230 


cmp ftcolumns-l 




LA 


2240 


beq rl 




AE 


2250; 






HA 


2260 il 


jsr tesfpos 


; are we at end 


BO 


2270 


bcc f2 




OF 


22B0, 






JO 


2290 


jsr pshend 


; make room if can 


PA 


2300 


bcs n 


; out of memory 


fwlH 


2310, 






OJ 


2320 f2 


cpx #13 




HL 


2330 


beg cret 




KJ 


2340, 






JH 


2350 


Idy #0 




EF 


2360 


Ida ftxi).y 




CM 


2370 


cmp #13 


; end of a fine check 


KH 


2380 


bne f3 




HB 


2390 


jsr insert 




PK 


240013 


txa 




EM 


2410 


sta (fxD,y 




NF 


2420 


jsF cnvscr 




PI 


2430 


sta (scr),y 




OP 


2440; 






HG 


2450 ; cursor rjght routine 




CM 


2460 right 


= • 


; cursor righl rooline 



II 



<) 



1 
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ME 


2470 jsr tindeoln 


DG 


3350 Idy #1 


Cp! 


4220; 




HG 


2480 !ya 


FA 


3360 sty num 


JN , 


4230 


Ida top' sta t<t ; init pointers 


HH 


2490 beqrl ; already at and 


FO 


3370 dey 


HL 


4240 


Ida top + 1: siatxt + l 


ME 


^500 inc txt 


SA 


3380 b5 jsr dectxl ; go back 2 or 


OE 


4250 


1 

isr initscr 


OP 


2510 bne t4 


KF 


3390 fcte (tx[),y 


KB 


4260; 


f 


JD 


2520 inc M + 1 


NB 


3400 beq f 12 


OL 


4270 . process . 


naxriinaofiex) 


BF 


253014 Ida col 


NB 


3410 cmp #13 


CK 


4280 newline 


^ fe 


BJ 


2540 cmp#colufnrs-l 


Kl 


3420 bne b5 


PN 


4290 


Idy ^Sff 


\C 


2550 bne t5 


IK 


3430 dec njm 


FB 


4300 bS 


X 

isr tesledn 


GH 


2560, 


AM 


3440 bpl b5 


JG 


4310 


J 

beq iineblank 


GG 

1— tL y 


2570 inc shifl 


AP 


3450, 


PG 


4320 


1 

opy shift ; handle nght scroll 


PK 


^560 jmp windL>w 


EG 


3460fl2 he m ; men fonward 1 char 


FP 


4330 


bcc b8 


EJ 


2590; 


BF 


3470 bne fl3 


KG 


4340, 




MJ 


260015 inc col 


JP 


3480 inc b;i + 1 


EH 


4350 


cic 


Jl 


2610 irc scF 


JB 


3490 tl 3 Ida row ; top of screen check 


FA 


4360 


jsr addy + 1 ; update txf ptr 


CH 


2620 bne n 


HC 


3500 beq lopup , scroll up 


li 


4370, 




GH 


2630 inc scr + l 


MC 


3510; 


JD 


4380 


tdv #Sf( 


JM 


2640 tl rts 


NG 


3520 dec row ; else move up row 


CH 


4390 b9 


jsr testeoln 


AN 


2650, , 


BA 


3530 Ida scr 


EH 


4400 


beq restblank , end of Lne 


FD 


2560 , cursofief) routine 


FF 


3540 sec 


EN 


4410 


isr cnvscr ; convei't ascii oodf 


FN 


2670 b4 dec sMft ; scroiMetl 


BE 


3550 sbc tf columns 


PD 


4420 


■ J 

sta [scr),y : put on screen 


OB 


26flO (nip window 


FM 


3560 bcs fl4 


AC 


4430 


H r J 

cpy #columns-1 


IP 


2690; 


NP 


3570 dec scr + 1 


FG 


4440 


bcc b9 


HM 


2700 left - - 


MN 


3580 fl 4 sta scr 


IN 


4450; 




DM 


2710 da col 


PI 


35901-3 Fts 


MA 


4460 


jsr findeoln + 2 ;ck>miiiit.y 


GF 


2720 ora shift ; check po3i!ion 


Gl 


3600, 


CF 


4470 


jsr addy ; point next line 


BL 


2730 beq r2 ; cant go left 


AN 


3610 , move window up 


GP 


4480; 




AH 


2740 jsr decM 


GJ 


3620topup ^ P ■ move text window upline 


LC 


4490 addscr 


= - 


LO 


2750 Ida col 


LE 


3630 Idy ffSif 


KN 


4500 


|Sr addrow ; to screen ptr 


JA 


2760 beq b4 


BK 


3640 dec lcp+1 


MN 


4510 


dec cnt 


KP 


2770 dec col 


PG 


3650 b6 dey 


ML 


4520 


bne newlme 


OA 


27ao dec scr 


GJ 


3660 Ida (lop),y 


IC 


4530; 




NB 


2790 Ida Bcr 


HM 


3670 beq newtop 


MA 


4540 f in i 


= • 


CP 


2800 crnp#3ff 


LC 


36fio cmp #13 


MK 


4550 


pla sta scr , restore ptrs 


oc 


2810 bne fe 


KJ 


3690 bne be 


AO 


4560 


' r 

pla: sta scr + 1 


PA 


2820 dec scr+1 


KO 


3700; 


CE' 


4570 


^a siatxt 


FL 


283016 sta scr 


JL 


371 newtop = • ; add y to top pointer 


FC 


45B0 


p»a: sta txt + 1 


EJ 


2840 r2 t\s 


JA 


3720 sec 


AH 


4590 14 


ns 


IJ 


2850, 


JE 


3730 tya 


OG 


4600, 




JE 


2860 ; carriage return handling louline 


KD 


3740 ado top 


lA 


4610lineblank 


3? ■ 


SF 


2870 eel = t ; handle carnage return 


GE 


3750 bcc M5 


KN 


4620 


\si addy 


GO 


■2860 jsr findeoln 


CD 


3760 iDC top + 1 


BG 


4630 


Idy HQ 


GP 


2890 Dia ;x = 13 


LE 


3770115 Sta top 


HA 


4640 


beq fl8 


OK 


2900 sta (txt},y 


PF 


3780 jmp window 


DF 


4650 restblank 


1 


EN 


2910; 


EE 


3790; 


CA 


4660 


fsr addy 


DD 


2920 ; cursor down routine 


JL 


3800 , move window down 


iGM 


4670 fie 


Jda #■ ■ 


JP 


2930 down - . 


BE 


3810 topdown = - ; rrtove window down line 


OM 


4660 bio 


s[3 (scr),v 


cc 


2940 jsr tindeoln 


JA 


3820 jdy #Sff 


CD 


4690 


1 r r 

inv 


FF 


2950 tay 


DE 


3830 b7 iny 


BC 


i4700 


opy #colutrins 


NN 


2960 beq r2 ; allteady at bottom 


KE 


3a40 Ida (top),y 


DP 


4710 


bcc bio 


DH 


2970 jsr Linshifl ; all the way left 


LH 


3850 beq newtop 


MF 


4720 


bcs addscr ;^rt next line 


KE 


2980 jsr findeoln 


PN 


3860 cmp #13 


AP 


4730; 




MH, 


2990 jsr addy 


AF 


3870 bne b7 


LD 


4740 addy 


= • , add y to text pii" 


MB 


3000 mo line 


JJ 


3880 beq newtop 


PA 


4750 


■ r 1 

sec 


IP 


3010 bne f7 


IK 


3690, 


PE 


4760 


tya 


MO 


3020 inc fine + 1 


NE 


3900 ; injtialize tor start otnewJine 


MP 


4770 


adc txl 


Gl 


3030 f7 Ida row 


EP 


3910unshif| = - 


IF 


4780 


bcc fl9 


EK 


3O40 cmp #rows-1 ; last row check 


HI 


3920 Ida scr 


H9 


4790 


inc txt+ 1 


CC 


3050 bne f8 


LN 


3930 sec 


BN 


4800 M 9 


sta txl 


KF 


3060 jmp topdown ; scrirfl down 


BK 


3940 sbc col 


GL 


4810 


rtG 


DL 


3070 fe inc row 


BF 


3950 bcs fl6 


KE 


4820; 




OH 


3080, 


Dl 


3960 dec scr + 1 


BD 


4830 dectxt 


= - ; backuptextpir 


JN 


3090 addfow - - 


KG 


3970f16 sta scr 


LE 


4840 


dec Ixf 


OF 


3100 Ida scr 


CA 


3980; 


KF 


4850 


kla ixt 


MJ 


3110 dc 


OP 


3990 Ida txl 


OP 


4860 


cmp #Sf1 


FH 


3120 adc ttcoluinns 


'BC 

1 


4000 sec 


CM 


4B70 


bne f20 


LE 


3130 bcc f9 


'HO 


4010 sbc cd 


ME 


4880 


dec lxf + 1 


EH 


3140 inc scr + l 


KJ 


4020 bcs t17 


PC 


4890 120 


rts 


OP 


3150 f9 sta scr 


KP 


4030 dectxt + 1 


KJ 


4900. 




EE 


3160 rts 


Ibn 


4040 fl 7 sta 1^ 


SD 


4910 ; convert ascM to screen code 


IN 


3170; 


IE : 


4050; 


DE 


4920 cnvscr 


= ri 


EH 


3180 ; cursor up routine 


HM. 


4060 Ida m 


FK 


4930 


eor #128 


El 


3190 up = . 


BF ' 


4070 sta col 


NC 


4940 


bpl f2l 


CD 


3200 Ida Ihne ; check positon 


KG 


4080 sta shift 


JL 


4950 


eor #128 


JG 


3210 ora hne+1 ; check position 


AH ' 


4090, 


ID 


4960 


cmp #64 


Nl 


3220 beq r3 ; at top already 


Fl : 


4100 ; move text to screen window 


AA 


4970 


bcc f2l 


NN 


3230 dec hne 


KG ■ 


41 10 window = - 


ID 


4980 


ecr #64 


MO 


3240 Ida line 


PP 


4 1 20 bit disfig ; fe display on 


HF 


4990 r21 


rts 


EL 


3250 cmp #Sft 


DK; 


4130 bmi r4 ; no 


OP 


5000; 




GH 


3260 Dne 110 


CK 


4140. 


MC 


501 reverse 


- t ; reverse cijrsor char 


BB 


3370 dec line + l 


NG 


4150 Ida #rows , screenend-screenbeg 


IB 


5020 


pha 


GJ 


3260 fio da M 




/columns 


BP 


5030 


Icfy #0 


LF 


3290 sec 


BM 


4160 sta cm 


Dl 


5040 


Ida (scr),y 


AD 


3300 sbc shift 


AM 


4170; 


EA 


5050 


eor #S80 


CM 


3310 bcs f11 


PO 


i4l80 Ida txt + 1: pha ; savepoinLers 


FN 


5060 


sia (scr).y 


ED 


3320 dec Wl + 1 


BF 


4190 Ida txt. pha 


GF 


5070 


pla 


DP 


3330111 sta Ixt 


ND 


4200 Ida scr+l. pha 


EM 


5080 


rts 


KP 3340 jsr unshift ; scrolf far left 


ED 


■4210 Ida scr pha 


IF 


5090; 
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* 



t 



I 



ON 


siooiesipos 


- • ; tes! posilion in te!<l 


AJ 


5980 


jmp set window 


NE 


6B60 3ec 


HD 


5110 


fda t)n + i 


MN 


5990, 




FP 


6870 adc col 


EB 


5120 


cmp end + 1 


FK 


6000 pagedown = - ; long scrolf down ' 


LK 


6860 tax 


DK 


5130 


bcc f22 


KP 


6010 


ror distig ;nodisplay 


AhJ 


6S90 lya ; =0 


GN 


5140 


bne r22 


BP 


6020 


Idx #fows-l ; 23 lines 


JK 


6900 isr cnvridec 


31 


5150 


Ida ixt 


OE 


6030 bl 3 


|sr down 


N\ 


J 

6910 jsf message 


FF 


5160 


cmp end 


PE 


6040 


dex 


CD 


6920 asc" LINE."; byteO 


PA 


5170f22 


FtS 


60 


6050 


bne bl3 


CM 


6930 Idy ljne + 1 


CL 


5180; 




ML 


6060 


beq setwindow 


ML 


6940 kJx line 


NP 


5190 insert 


= ■ , insert one Space 


MC 


6070; 




CA 


6950 injt 


KK 


5200 


Ida end + i:pha 


NJ 


6060 pageup 


- ■ ; long scroll up 


EP 


6960 bne t32 


HA 


5210 


Ida end- pha 


KE 


6090 


ror disfig , nodisplay 


KB 


6970 iny 


PK 


5220 


Idy #0 


DE 


6100 


Idx (frows-l ; 24 lines 


KP 


6960 f32 tya 


1 KD 


5230 bT 1 


Ida {end).v 


PE 


6lt0bl4 


|Sr up 


DA 


6990 isf cnvrtdec 


F 


5240 


iny 


PJ 


6120 


dex 


HO 


r 

7000 jsr rnessage 


EN 


5250 


sta tand}.v 


EL 


6130 


bne bl4 


NH 


?Ol0.asc ■ FFiEE "i.byieO 


HE 


5260 


dey 


MA 


6140 


beq set window 


GF 


7020 Ida eob + 1 


Jh 


5270 


dec end 


MH 


6150; 




HP 


7030 sec 


Jl 


5280 


Ida end ; 


PA 


6]60pagelefi 


= ♦ 


PF 


7040 sbc end+1 


UK 


5290 


cmp tf^^ 


GB 


6170 


ror dJBtlg 


JF 


7050 tay 


JH 


5300 


bne 123 


AOi 


6160 


Idx #colijmns^l 


FK 


7060 Ida eob 


II 


5310 


dec end + 1 


MP 


6190 PI 5 


jsr leti 


GJ 


7070 sbc and 


HL 


5320 123 


j^r lesfpos 


PO 


6200 


dex 


DH 


7080 ^ 


CG 


5330 


bCG bll 


HA 


6210 


bne bl5 


JG 


7000 tya 


KK 


5340 


beq bl 1 


MF 


6220 


beq setwindow 


BH 


7100 ter cnvrtdec 


OM 


5350 


pla sta end 


MM 


6230; 




FF 


7110 )sr message 


PL 


5360 

^ xH ^v r^x 


pla sla end + 1 


JF 


6240 ■ scroll Sideways to end of line 


HH 


7120 asc' V.byleO ; 3 (spaces) 


AH 


5370, 




PH 


6250 pager ight 


= tf 


GM 


7130 rts 


HP 


5380 pshend 


■ ; bump end ptr jp 


EP 


6260 


foi disfIg ; nodisplay 


KF 


7U0; 


m 


5390 


Ida end + 1 


KD 


6270 


Idx #calunins-l 


FB 


7150 " prim in source messages 


HE 


5400 


CTTip eob + 1 


EK 


6280 b16 


jsr right 


FH 


7 1 60 rrfessage = ■ 


BM 


5410 


bcc 124 


JE 


6290 


dex 


NE 


7170 Idy #0 
7180 pla 


EB 


5420 


Ida end 


EG 


6300 


bne bl6 


EJ 


Ml 


5430 


cmpeob 


BB 


6310 sei window = ■ 


KK 


7190 sta ptr 


FJ 


5440 


txs r5 


KE 


6320 


Isr disflg 


IK 


7200 pla 


KO 


5450(24 


inc end 


IB 


6330 


fmp window ; display 


HJ 


7210 sta plF + 1 


CJ 


5460 


bne rS 


KD 


6340, 




FB 


7220bl9 inc ptr 


NE 


5470 


inc end + 1 


MK 


6350 ; set y = distance to text eol 


FA 


7230 bne 133 


NO 


5480 1-5 


ris 


JB 


6360 ffndeolii 


= k 


HJ 


7240 inc plr + 1 


JO 


5490; 




PP 


6370 


Idy #5fr 


KO 


7250133 Ida (plf),y 


10 


5500 deiefechr 


= * 


BO 


6380 bl 7 


|sr lesieoJn 


ID 


7260 beq 134 


DH 


5510 


Ida *1 


BM 


6390 


bne bl7 


EN 


7270 fsr print 


FB 


5520 


ata num 


MO 


6400 


rts 


BE 


7280 bne bl9 


GE , 


5530 


jsr left . dim 


Al 


6410; 




AA 


7290134 da pff + t 


NF 


5540 delete 


t ; number olcharainnum 


11 


6420testeoln 


= t 


AA 


7300 pha 

7310 Jda pir 


EL 


5550 


Ida Jut + I: pha 


OP 


6430 


iny 


EO 


LK 


■5560 


Ida iKt pJia 


HF 


6440 


cpy #Sft 


EB 


7320 pha 


HK 


5570 612 


idy rum 


OB 


6450 


beq 129 


01 


7330 fls 


10 


55^0 


Ida (txt).y 


IF 


6460 


Ida [txt>,y 


cc 


7340; 


BC 


,5590 


Idy #0 


CD 


6470 


beq (25 


El 


7350 wedge tor ed command in baste 


KD ■ 

/% 1 h 


5600 


sta (txt).y 


LB 


6480 


cmpffl3 


KA 


7360 cnjnchwdg - • ; wedge for edconimand 


CH 


5610 


inc txt 


DF 


6490129 


rts 


HL 


7370 Ida inpjl 
7380 cmp#'e' 


PL 


5620 


bj>e 125 


KN 


6500; 




PD 


PF 


5630 


inc txt + 1 


HC 


6510 initiali2e 


= ■ 


LK 


7390 bne f35 


PP 


5640125 


i£F testpos 


HJ 


6520 


Ida sob 


ML 


7400 tda input + 1 


FK 


5650 


bcc tjl2 


QN 


6530 


Idx sob + 1 


KF 


7410 cmp#"d" 


NO 


5660 


beq bl2 


CA 


6540 


cic 


JM 


7420 bne 135 


01 


5670 


pla $taixt 


HH 


6550 


adc #2 


FP 


7430 imp start ;cal!mr ed 


BH 


5680 


pla sta txt + 1 


FD 


5560 


bcc 130 


AK 


J 1 1 ^ ^^ 

7440135 jmp cmnchsrv ; passfobasic 


PO 


5690 


fS' testpos 


Gl 


6570 


inx 


AJ 


7450; 


JO 


5700 


bcs 126 


HK 


6560 f30 


sta txt 


CK 


1 

7460 ; command entiles 


GD 


5710 


Ida end 


IK 


6590 


sta tc^ 


NO 


7470 commands = ■ 


JN 

1 J 


5720 


SBC 


DK 


6600 


stx lxt+1 


NA 


7480.byte14e' word insrtspc-1 :inst 


JL 


5730 


sbc num 


KN 


6610 


sb( lop + 1 


IK 


7490 byte 20' .worddeleiechr-l ,de1 


CJ 

1 ^ 


5740 

^— ^m ^ j-t 


^ta end 


GK 


6620 


Ida end:s(aptr 


JO 


7500byTe133 word ddeteln-l ,fl 


LF 


5750 


bcs t26 


FF 


6630 


fda end+ 1 staplr + 1 


CC 


7510. byte 137 word insei'ttn-1 ;12 


KE 

1 n 


5760 


dec end + 1 


DF 


6640 


hHy tfO .fill zeros 


OM 


7520 byte 134: .word pagedown-1 ,13 


IP 

1^ ± 


5770 126 


imp Window 


BL 


6650 


lya 


FA 


7530byiel3B wordpageup-1 ,14 


KA 


57S0; 




JM 


6660 bis 


sta {ptrj.y 


JK 


7540 bylelSS' wofd pager ighl-1 ,15 


A8 

1 1^ 


5790 rnseriln 


= - ;inserlchr$(l3) 


El 


6670 


inc ptr 


FO 


7550 byte 139 wc^d pageleH-t ;f6 


JG 


5800 


jsr insert 


JfM 


6630 


bne f31 


GG 


7560 byte 3. .word ready-1 ;rijnstop 


ID 

b I 1 


5S10 


fda #13 


BH 


6690 


inc plr + 1 


GB 


7570 byte 17: .worddown-1 ; (cursor down) 


Nl 


5820 

^ x^ nu XX 


bne f27 


LO 


6700 f3l 


Idx pir + 1 


EO 


7580 byEel45 word up- 1 ,(ciirsorup) 


WD 


5830 ; 




01 


6710 


cpx eob + 1 


GD 


7590 .byte 157: .word Ie1t-1 ;(cuTsor left) 


CA 

1 1 


5840 insrispc 

^ XH ^ j^ 


= • ;jnsertbfank 


FO 


6720 


bcc bia 


NJ 


7600 l^yie 29' wofdrlght-t .(cursor right) 


LJ 


5850 


|Sr insert 


MP 


6730 


Idx ptr 


MP 


76lOcommandnuiTi ^ t-commands 


JB 5860 

1 


Ida #■ ■ 


DN 


6740 


cpx eob 




UMf5870f27 


sta ftx1),y 


DA 6750 


bcc bis 




DJ 


5880 


imp window 


HB 


6760 iniiscr 


= * 




JH 


5S90; 




FM 


6770 


Ida #<screenbeg: sta scr 




GA 


5900de1e1eln 


= ■ , ddete line 


Ni 


6780 


Ida *>screenbeg siascr+l 




ED 


5910 


ror distig .display off 


CH 


6790 


rts 




GM 


5920 


isr lindeoln 


GA 


6600; 






BO 


5930 


tya 


PI 


68i0stalusline 


= ' 




lA 


5940 


bne 129 


DD 


6820 


}sr rnessage 




OB 


5950 


ny 


KH 


6830 .byte 19 


; (home) 




HH 


5960 t2a 


sly num 


EN 


6840 asc "COLUMN'^i.byteO 




BK 5970 


|Sr delete 


OP 


6350 


Ida Sbrfl 
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Mandelbrot Halo 



Aubrey Stanley 
M ississauga, Ontario 



A Mandelbrot-set exploration program for the C128 



The Mandelbrot set lies mysteriously at the centre of the two 
dimensional complex plane. Surrounding it is a halo whose 
splendor is discovered with the aid of a microscope powerful 
enough to penetrate the heart of the atom. When we magnify 
small areas, we unveil pictures of immense beauty. Repeatedly 
magnifying a single spot reveals scene upon scene of ever 
changing loveliness. Miniature replicas of the set appear out of 
nowhere, each a little different. There seemingly is no end to the 
process! 

MANDELBROT HALO for the CI 28 will lei you explore the halo 
in a manner that is both entertaining and instructive. A mathe- 
matical appreciation is not required, although readers so in- 
clined will enjoy the article on the Mandelbrot set (Scientific 
American, Aug. 1985}, by A, K. Dewdney, to whom 1 am deeply 
indebted for the inspiration, Coincidently, while developing the 
program, I came across Peter Schroeder's implementation for 
the Amiga (BYTE, Dec. 1986), but it in no way influenced this 
program. 

The pictures take some time to complete. The initial picture of 
the Mandelbrot set with the halo takes 105 minutes. Times for 
magnified pictures generally take up to 60 minutes, while some 
extreme shots may take up to four hours. But if, like me, you 
crave to see the life that vibrates in every atom, your patience 
will not go unrewarded. 



Typing It In 

MANDELBROT HALO is in two parts. Program 1 ( " halo.bas " 
on the disk) uses friendly C128 BASIC to control the user 
interface. Program 2 is in machine language and contains the 
floating point calculations and screen plotting routines which 
would run too slowly in BASIC. Incidentally, the original Ali- 
BASIC version look 20 hours to plot the Mandelbrot set! 

To help you enter the program accurately, you should use the 
C128 "verifizer". See the section in the magazine on typing in 
programs. 

Save the BASIC program under any name. The loader (Program 
2) will create the machine language portion and name it " 
halo.obj " ; this program is loaded by the BASIC program. 



A Window On The Picture 

Pictures are drawn in the graphics area of a split screen. The 
parent picture is the Mandelbrot set which must be plotted first 
and saved to disk. It may then be recalled whenever you want to 
select a new area of ttie halo fur magnification. When the second 
picture is plotted, any portion of it may be selected for further 
magnification. This process may go on indefinitely. 

The following description will help increase your enjoyment of 
the program. You may gloss over the math parts if you wish. 

Certain parameters or values are associated with the area being 
magnified. These are displayed in the menu section of the split 
screen. The values are automatically manipulated as you move a 
Zoom Window over the picture. You may vary the size of the 
window and also the size of the graphics area upon which the 
contents of the window will be projected. 

RE is the real part of the complex number representing the top 
left hand corner of the window. IM is the imaginary part of the 
same number, SI is the length of each side of the window. These 
three parameters define the area under the window. 

In terms of pixels, the top left hand corner of the picture over 
which the window moves is given x:y coordinates of 0:0. The top 
left hand corner of the window is identified by X and Y, which 
are relative to coordinates 0:0. Z is the length in pixels of each 
side of the window and you may vary it from a single pixel to 24 
pixels. X, Y, Z are related to RE, IM, SI respectively and are the 
more visible definitions of the area to be plotted. When encoded 
into a filename, they can help to trace the origin of a picture. 

PIXELS determines the size of the projection area and is the 
length in pixels of each side. You may vary it from 16 to 160 
pixels, so even a postage stamp size picture may be plotted. As 
smaller pictures will plot in less time, you can use this feature to 
quickly evaluate the result of a magnification, before deciding to 
go ahead with the maximum size. PIXELS corresponds to SI in 
terms of the visible screen area over which the window will be 
plotted, for example a 1 60 by 1 60 square pixel area. 

So we calculate a value for gap by dividing SI by PIXELS, We 
now have a two dimensional array, 1 60 by 1 60 gaps, in terms of 
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the complex plane whose top left hand comer is RB/IM, For 
each gap in the vertical (imaginary) plane, we perform a repeti- 
tive operation on each gap in the horizontal (real) plane, a total 
of 1 60 times 1 60, or 25600 operations. This iterative operation is 
given by the equation, z = z^ + c, where c is the complex 
number containing the reai and imaginary parts of gap and z is 
initially set to the complex number 0. Each lime we calculate z. 
we substitute its value into the equation and then recalculate z. 
Repeatedly computing z in this way produces the Mandelbrot 
set, which is the set of numbers for which the size of z remains 
finite no matter how many times we recalculate it. Other num- 
bers will tend to infinity, some sooner than others. 

Numbers outside the Mandelbrot set are identified when z 
reaches a size of 2 (or more). Those within the set never reach 
this size. So we begin an iterative loop with a count of 1, 
calculate z, and repeat the loop if the result is below 1, stepping 
the count each time. If after 150 iterations, the size of z remains 
below 2, the pixel is assumed to lie in the set and is assigned a 
count of for convenience. Pixels reaching a size of 2 in the 
process will exit the loop and retain the count at which they did 
so. Therefore pixels with a count of 2 lie within the set, those 
with small counts are very far from the set. and those with large 
counts are close to the set. 

Colours are assigned to pixels according to how far from the set 
they lie. As only four colours may be used in CI 28 multicoloured 
mode without losing detail, black is assigned to pixels within the 
set and three other colours are distributed in spectrums based 
on a moduIus-3 derivation of each pixel count. Each of these 
three colours may be individually changed. 

For speed reasons, no scaling is employed in the plots. Therefore 
pictures are more rectangular than square, but this does not 
detract from their beauty. Remember that in terms of the 
complex plane, the pictures are truly square! 



The Mandelbrot Set 

Before you can begin to explore the halo, you must first generate 
the Mandelbrot set. 

Load and run the BASIC program. You will see the menu in the 
text portion of the split screen, a colour line above it, and an all- 

biack graphics screen. The PLOT option will be highlighted In 
the menu. 

Press RETURN. The plot will commence at a brisk pace, then 
will slow down considerably in the region of the halo, near the 
set. You will not actually see the pixels within the set being 
plotted because they are left in the background colour (black). 

The screen will go blank if you press down the CAPS LOCK key 
while the picture is being drawn. This is because the program 
goes into fast mode and the VIC chip cannot display at the 
(doubled) processor speed. Releasing the key will put the pro- 
gram into slow mode again and the picture will reappear. It 
makes sense to leave the CAPS key down because pictures will 



be drawn twice as fast, making for considerable savings in time. 
You can always release it from time to time in order to monitor 
progress. 

Make sure to save the picture as soon as it is complete. To do so, 
use the Cursor Left key to move the highlight to the FILENAME 
option and then press RETURN. Release the CAPS key if you 
had left it down.'Now type in a filename for the picture and press 
RETURN, Cursor Right to the SAVE option and press RETURN. 
Once the picture is saved to disk, you may recall it at any time by 
entering the filename as before, and pressing RETURN on the 
LOAD option. 

To exit the program, move to the EXIT option and press 
RETURN. Sometimes you may wish to abort a picture while it is 
being drawn, in that case use the RUNSTOP/ RESTORE combi- 
nation. You may RUN the program again to start another picture. 



Exploring The Halo 

Bordering the Mandelbrot set is a halo of colour suffused with 
filaments that spread out in all directions. From our distant 
perspective its beauty is as yet undifferentiated, like the plumage 
of the peacock that lies at first in the plasma of its egg. 

Two categories of pictures may be derived from the halo. The 
first contains exotic structures, often with miniature, imperfect 
versions of the set suspended like black jewels on filigreed 
tendrils. These pictures take a relatively short time to plot and 
occur when the window does not include any of the (black) area 
within the set proper The second category occurs when we 
magnify tiny (one or two pixel) protrusions into the set. These 
often give spectacular, landscaped effects, but take a relatively 
long time to plot as some portion of the set must be included. 

Start with the picture of the Mandelbrot set. Load it from disk if 
you need to, as explained in the last section. Move to the PLOT 
option and then press the SPACE bar The action now moves to 
the graphics screen where a flashing window will appear in the 
centre of the picture. Its size may be varied by pressing the " + " 
and "-" keys. Move the window by using the four Cursor keys. 
The parameter displays are automatically updated to accommo- 
date the size and position of the window. 

Move around the haio looking for interesting spots. There are 
hundreds to choose from. If you plot outside the halo you will 
only gel solid colour, while within the set there is only black! It is 
in the filamented border of the halo that you will find the 
variegated beauty you are looking for. 

To move back to the menu, press the SPACE bar again. You may 
move back and forth in this manner. To vary the size of the 
projection area, move to the PIXELS option and use the " + " 
and " - ' keys. To quickly evaluate the result of a magnification, 
select a small size, say 48 pixels. The picture will be plotted in a 
considerably less amount of time and may then be re-pro)ected 
onto a larger area as long as you do not return to the graphics 
screen; otherwise the parameters will readjust to the window 
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position and size. It is always a safe bet to save the original 
picture first. Once you have selected the area for magnification 
and noted its X, Y and Z values (a good idea), press RETURN on 
the PLOT option. The current picture will be erased and the new 
one drawn. You may then save the picture and/or select a 
further area for magnification. 

The Colour Options 

Pixels in the Mandelbrot set are always plotted in black. The 
three other colours, however, may be changed individually for 
optimum presentation of each picture. Move to the (one of three) 
colour options - COLl. C0L2 or C0L3 - and use the " + " key 
to cycle through the colours. 

The Colour Line above the menu shows the three colours 
currently in effect. It will change to reflect the colour changes 
you make. If a picture is displayed, it too will instantly be 
updated with the colour changes. 

Use the " - " key to revert to the original colour of the last picture 
plotted or recalled to the screen- 
Beyond The C 1 28 

The C128 does give very pleasing results in spite of its limita- 
tions: 1 60 by 1 60 resolution and only four colours. Where more 
colours are available, the results will improve dramatically. I 
have in mind here other graphics devices like colour printers 

and plotters, even other computers like the Amiga! 

For this reason, MANDELBROT HALO will generate an array in 
memory by storing the count values reached for each pixel 
during the iterative loop mentioned earlier. To save the array on 
disk, enter the filename, then press RETURN on the DUMP 
option. If you want to view it. you will have to exit and use the 
Monitor. 

As generating the array adds about 15 minutes to the picture, 
this function can be bypassed by running the program from the 
40 column screen. The DUMP option is only in effect when you 
begin the program from the 80 column screen, then switch to 
the 40 column screen to use the program. 

The array is stored as a program file, so if you are transferring il 
to another machine, remember that the first two bytes contain 
the start address. You can load the array into memory with the 
command BLOAD " filename " ,B0. 

In C128 memory the array exists in bank 0. starting at address 
6FFD hex. The format is as follows: 

6FFD LOWEST Count in the array (excluding 0). 

6FFE HIGHEST Count in the array 

6FFF LENGTH Of each line in the array, in pixels. 

7000 COUNTS For pixels in line 1. one byte each. 

7000 + (LENGTH) COUNTS For each pixel in line 2. 

7000 + (LENGTH * 2) COUNTS For each pixel in line 3. 

etc. 



ffemember that the array is square, so the number of lines is 
equal to the length of each line. The Low and High counts give 
the values for pixels outside the set, and can range from 1 to 151. 
A count of in the array denotes a pixel lying in the set (black in 
the pictures). 

Before plotting to an external device, it is a good idea to divide 
up the available colours only within the range of counts that 
exist in the array (excluding 0). That is why the Low/High 
counts are stored. You will use all the colours this way An 
alternative is to simply assign the " n " colours to the Modulus-n 
values of each count. Pixels lying in the Mandelbrot set, 
(count = 0} must, of course, be assigned their own, unique 
colour. 

^ 

Happy Exploring! 
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Mandelbrot Halo 

10 rem "mandelbrothalo'' " aubrey Stanley " 

"apfil1987" 
20 rem = the next line must be entered exactly 

as shown = 
30re = -2:im = 1.25:si = 2,5:gp = si/160:cn = 151 
35r1$ = chr${18):r2$ = chr${146):cl$ = chr$(157) 

:cr$ = chr$(29) 
36bl$ = chr$(159):rd$ = chr${150):br$ = chr$(149) 

;gy$=chr$(155) 

37 cu$ = chr$(1 45); cd$ = chr$(1 7) 

40bank15:fast:close 15:open 15,8,15 

;bload"halo.obj" 
50 gosub 1 770;gosub 930:ciose 1 5:end 
60 rem == "print parameters" = = 
70printgy$;:window3,21,19.21,1:printac; 

80 window 23,21 ,39,21 ,1 :print be; 

90 window 3,22,19,22,1 :print cc;:relum 

100 rem == "print coords" = = 

110 ilzm=0 then mx = 0:my = 0:mz = wd 

;elsemz = sd 
120 print gy$;:window 21 ,22,26,22,1 :print mx; 
130 window 28,22,33,22,1 :prlnt my; 
140 window 35,22,39,22,1 :print mz:;return 
150 rem == "print pixels" = = 
160 print gy$;:window 33,23,38,23,1 :printwd; 

; return 
170 rem == " print lilename' = = 
1 80 print gy$;;window 8,23,25,23,1 ;print f$; 
1 90 return 

200 rem == "plot color line" = = 
21 gosub 220;gosub 230:goto 240 
220box1,0J64,52,167,,1:retum 
230 box 2,53, 164 J 05,167, J:return 
240 box 3, 106,164.159.1 67,, 1:return 
250 rem == "plot frame' = = 
260color3,12:fory = 168to199:draw3,0,yto159,y 

:next:cQlor3.c3 
270x = pa(px,1);y = wd-1:box3.x.x,x + y,x + y:return 

280 rem == "color values" = = 
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290 color 1 ,c1 :color 2,c2:color 3.c3:graphjc 3.1 

: return 
300 color 1 ,c1 :color 2,c2:if wiOO then sys 27456 

:else gosub 220:gosub 230 
310 return 

320 color 3,c3:if wiOO then sys 2741 5 

330 gosub 240: return 

340c4 = c1:c5 = c2:c6-c3;return 

350 rem = = " plot values " = = 

360 re = ac: im = bc:si = cc:sprite sa(sp,0),0 

370xc = pa(px,1):yc = xc + wd-l:gosub70 

:gosubl10:gosub 160;return 
380 rem == "make sprite" =^ 
390 sshape a$,0,0,23,20:sprsav a$,a;a = a + 1 

:scnclr 1:return 
400 rem = = " print menu " = = 
41 print chr${1 9)chr$(19)rv$:scnclr 0:sys 51 941 
420 window 0.21 .2,21 :print br$ " re ^ 
430 window 20,21 .22,21 print " im " ; 
440 window 0,22,2,22;print "si^ 
450 window 20,22, 35,22:print " x " spc(6) " y " 

spc(6) ^ z ■ ; 
460 gosub 480:gosub 490:gosub 500:gosub 51 

:gosub 520 
470 gosub 530;gosub 540. gosub 550:gosub 560 

: goto 570 
480 window 0,23,8,23:print rv$;rd$; " filename " ; 

: goto 580 
490 window 27,23,33,23:print rv$;rd$; " pixels " ; 

: goto 580 
500 window 0,24,3,24:pr!nt rv$;bl$; " plot " ; 

:goto580 
510 window 5,24,8,24:pnnt rv$;bl$; " load " ; 

:goto 580 
520 window 1 0,24 J 3, 24:print rv$;bl$; " save ■ ; 

:goto580 

530 window 15,24,1 8, 24:printrv$;bl$;'' dump"; 
: goto 580 

540 window 20,24,23,24: print rv$;bf$; "coll " 

: goto 580 
550 window 25.24, 28,24:print rv$;bl$; "col2 " 

: goto 580 
560 window 30,24,33, 24;print rv$;bl$i " col3 " 

: goto 580 
570 window 35, 24, 38,24:print rv$;bl$; "exit" ; 
580rv$ = r2$;printrv$;;retufn 
590 rem = = " get key ^ - = 
600getk$;a = 1 
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620 if k$ = mid$(kb$,a,1) then exit:else a = a + 1 
630 loop 

640 if a = k then 600:elsek = a: return 

650 rem = = " load vars " = = 

660fora = 0to4;bank0:p = peek{p1 +a):bank1 

:poke(p2 + a),p:next 
670bank15:p1 =pT +5:return 
680 rem == "save vars" = = 
690 for a = to 4:bank 1 :p = peek{p1 + a):bank 

:poke(p2 + a).p:next 
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700 bank 15:p2 = p2 + 5:return 

710rem== "update zoom parameters" = = 

720 mx = (sx-sq)/2:my = sy-sr:ac = re4-(mx+gp) 

:bc = im-(my*gp):cc =^ si/(wi/sd) 
730 gosub 70:gosub 110:return 
740 rem = = "disk checks" = = 
750print#15,"s0:" +fi$:input#15,a,f$:return 
760 dop6n#1 ,(fi$) + " ,p " :input#1 6,a,f$:dclose#1 

; return 
770input#15,a,f$:return 
780 rem = = = = 
790 rem == "filename " = = 
800 rv$ = r1$:gosub 480: kb$ = cr$ + r$ 
810k = 3:gosub600:f$- " ":if k= 1 then gosub 480 

: goto 860 
820 gosub 480:gosub 1 80:input f$ 
830iff$<>" " thenfi$ = f$;elsef$ = fi$ 
840 gosub 180:goto300 
850 rem = = "pixels" = = 
860rv$ = r1$:gosub490:kb$ = ol$ + cr$+" +"" 
870 k - 5:gosub 600:on k goto 880,880,890,900 
880 gosub 490:i! k = 1 then 800:else goto 930 
890 if px = 9 then 870:else px = px + 1 :goto 91 
900 if px = then 870:else px = px- 1 
91 wd = pa(px,0): gosub 1 60:goto 870 
920 rem == "plot" = = 

930rv$ = r1$:gosub500:kb$= " " +Gl$ + cr$ + r$ 
940 k = 5:gosub eOOion k goto 980,950,950,960 
950 gosub 500:if k = 2 then 860:efse goto 1000 
960 gosub 500:gosub 290:gosub 360:gosub 260 

:gp = si/wd:sys 4864,wd,xc,cn,mo 
970 stow:wi = wd:graphic 4,0,21 ;gosub 21 0:zm =0 

igosub 110:goto930 
980 if wi = then 940:else gosub 500:gosub 201 

: goto 930 
990 rem = = " load " = = 
1000 rv$ = r1$:gosub510:kb$ = cl$ + cr$ + r$ 
1010 k = 4:gosub600:ifk = 3 then 1030 
1020 gosub 510:if k = 1 then 930;else goto 1 1 30 
1030fffi$= " " then f$ = fi$;gosub510:goto 820 
1 040 gosub 760:if a<> then gosub 510:gosub 1 80 

: goto 790 
1050fast:bload(fi$),b0:p1 =8157:p2 = pointer(c1) 

:gosub660 
1060 p2 = pojnter(c2):gosub660:p2 = pointer{c3) 

:gosub660 
1070 p2 = pointer(ac}: gosub 660:p2 = pointer(bo) 

:gosub660 
1080 p2 - pointer(cc): gosub 660:p2 = pointer{wi) 

:gosub660 
1090wd = wi:gp = cc/wd:fora = 0to9:if wi = pa(a,0) 

then px = a 
1 100 next;zm = 0:gosub 340:gosub 360:gosub 300 

:gosub320 
1 1 10 gosub 270:gosub 210: slow: gosub 510 

: goto 930 
1 1 20 rem = = " save " = = 
1130rv$ = r1$:gosub520;kb$ = cl$ + cr$ + r$ 
1 140 k = 4:gosub600:ifk = 3 then 1170 
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1150gosub520:if k = 1 IhenlOOO 

1 1 60 if mo- then 1480:else goto 1280 

1 1 70 if fi$ = ■ " then {$ - fi$:gosub 520:goto 820 

1180gosub760:ifa = 62 then 1210 
11 90 if a = then f$ = " file exists " 

1 200 gosub 520:gosub 1 80:goto 790 

1 21 fast:gosub 34a:p2 = 81 57:for p = to 34 

:ma(p) = peek(p2 + p}:next ' 
1220 pi = pointer(c1):gosub 690:p1 = pointer(o2) 

:gosub 690 
1230 pi =pointer(c3):gosub 690:p1 = pointer(re) 

:gosub690 
1240 p1 = pointer{im):gosub 690:p1 = pointer(si) 

' :gosub690 
1250 p1 -pointer(wi):gosub690:bsave(fi$),b0,pei57 

top14592;p2 = 8157 
1 260 for p = to 34:poke p2 + p,ma(p); next: slow 

: gosub 520: goto 930 
1270 rem == "dump" - = 
1280 rv$ = f 1 $:gosub 530:kb$ = cl$ + cr$ + r$ 
1290 k = 4:gosub600:ifk = 3 then 1310 
1300 gosub 530:if k - 1 then 1 1 30:else goto 1480 
1310iffi$= " ' thenf$ = fi$:gosub530:goto820 
1 320 gosub 760: if a = 62 then a = px -i- 1 :fast 

:goto 1350 
1 330 if a - then f$ = " file exists " 
1340 gosub 530:gosub 180:goto 790 
1350 on a gosub 1370,1380,1390,1400,1410,1420, 

1430,1440,1450,1460 
1360 s(ow:goto 1290 

1370 bsave(fi$),b0,p28669 to p28928:return 
1380 bsave(fi$),bO,p28669 to p29696:return 
1390 bsave(fi$),b0,p28669 to p30976:return 
1400 bsave(fi$),b0,p28669 to p32768:return 
1410bsave(!J$),b0,p28669top35072:return 
1420 bsave{fi$),b0,p28669 to p37888:return 
1 430 bsave(fi$),b0,p28669 to p4l21 6:return 
1 440 bsave(fi$),b0,p28669 to p45056:return 
1450bsave(fj$),b0,p28669top49408:return 
1460bsave(fi$),b0,p28669top54272:return 
1470 rem = = 'color 1 = = 
1 480 rv$ = r1 $:gosub 540:kb$ = cl$ + cr$ + " + - " 
1 490 k = 5:gosub 600:if k>2 then 1 520 
1 500 gosub 540:if k - 2 then 1 560 
1510 if mo = then 1130:else goto 1280 
1 520 if k = 3 then c1 - c1 + 1 :else c1 = c4 
1530ifc1=17thenc1=2 
1 540 gosub 300:goto 1 490 
1550 rem = = "color 2 = = 
1560rv$ = r1$:gosub550:kb$ = cl$ + cr$+"+-" 
1 570 k = 5:gosub 600:if k>2 then 1 590 
1580 gosub 550:ifk=l then 1480:else goto 1630 
1 590 if k = 3 then c2 = c2 + 1 :else c2 - c5 
1600ifc2-17thenc2 = 2 
1 610 gosub 300:goto 1 570 
1620 rem = = "color 3 - = 
1630rv$ = r1$:gosub560:kb$ = cl$ + cr$+"+-" 
1 640 k = 5:gosub 600:if k>2 then 1660 
1 650 gosub 560:i{ k - 1 then 1 560:else goto 1 700 
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1 660 if k = 3 then c3 =c3 + 1 :eise c3 = c6 

1670ifo3 = 17thenc3 = 2 

1680 gosub 320:goto 1640 

1 690 rem = = ' exit " = = 

1 700 rv$ = r1 $:gosub 570: kb$ = cl$ + r$ 

1 71 k = 3:gosub 600:if k - 1 then gosub 570 

: goto 1630 
1 720 print chr$(1 9)chr${1 9):graphic 0, 1 

:sprite sa(sp,0),0:sys 51 938 
1 730 if mo = 5 then print " switch to 80 col screen " 

:grapiiJc5 
1740 return 
1 750 rem - - = = 
1760 rem = = " initialize = = 
1 770 mo = rgr(0):it mo = 5 then print " switch to 40 

col screen " 
1780 dim sa(9,1),pa(9,1),ma(34) 
1 790 zm = 0:wi = 0:xs = 24:ys = 50:ac = re:bc = im 

;cc = si:cn = en and 255 
1 800 rem = sprite array = sprite^ = width = 

index sp 
1 81 for i = 1 to 8:sprite i,0:next 
1820 33(0,0) = 1 :sa{0,1) = 1 :sa(1 ,0) = 2:sa(1 ,1 ) = 2 

:sa{2,0) = 3:sa(2,1) = 4 
1830sa(3,0)-4:sa(3,1)-6:sa(4,0) = 5;sa(4,1) = 8 

:sa(5,0) = 6:sa(5,1) = 10 
1840sa(6,0) = 7:sa(6,1) = 12:sa(7,0) = 5:sa(7,1) = 16 

:sa(8,0) = 6:sa(8,1)=20 
1 850 sa{9,0) = 7:sa(9,1) = 24:sp = 4:sn = 5:sd = 8 
1860 rem = pixel array = width = start = index px 

1870px = 9;a = 16:fori = 0to9:pa{i,0) = a:a = a + 16 
:next 

1880wd = 160:a-72:fori = 0to9:pa(i.1) = a;a = a-8 

:next:px = 9 
1890fi$= "":r$ = chr$(13) 
1900 rem == " window sprites " = = 
1910 colorO.I :Golor4,1 :color1 ,2:graphic1 ,1 
1920 a- 1 draw 1 ,0,0 to 2,0:gosub390 
1930 box 1 ,0,0,4,2:gosub380:box 1 ,0,0,8,4 

:gasub390 
1940 box 1, 0,0,1 2, 6:gosub380:box 1,0,0,16,8 

:gcsub390 
1950 box 1 ,0,0,20,10:gosub380:box 1 ,0,0,23,12 

:gosub390 
1960rem == "graphics screen" = = 

1970 Cl=3:c2=15:c3 = 8:gosub290:graphic 4,1,21 

:slOW 
1980 gosub 340:gosub 210:gosub 410:gosub 360 

: return 
1990 rem = = = = 
2000 rem = = = " zoom " = = = 
2010 kb$= ' ■ +cl$ + cr$ + cu$ + cd$+ " +-' 

;if zm = then mx = wi/2:my = mx:xd = xc:sp = 4 
2020 zm = 1 :sr = ys + xd:sq = xs + (xd»2):sx = (mx'2) 

+ sq:sy = my + sr 
2030 sprite sn,0:sn = sa(sp,0):sd = sa(sp,1) 

:su = xc + wi-sd:ss = su*2 
2040 su = ys + su:ss = xs + ss:movspr sn.sx.sy 

:if wi = 1 6 then u = 6:else u = 9 
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2050 movspr sn.sx.sy 

2060 k = 8:gosub 21 50:on k goto 2070,2080,2090, 

2100,2110,2120,2130 
2070 c= 1 :gosub 2230:gosub 720:retufn 



goto 2050 
goto 2050 
goto 2050 
goto 2050 
goto 2030 
goto 2030 



2080 if sx = sq then 2060:else sx = sx-2 

2090 if sx = ss then 2060:else sx = sx + 2 

21 00 if sy = sr then 2060:else sy = sy-l 

21 10 if sy = su then 2060:else sy = sy + 1 

2120ifsp = u then2030:elsesp^sp + 1 

2130ifsp = then2030:elsesp = sp-1 

2140rem== "move window = = 

2150b = 0:o=:2 

2160^01 k$:a-1 

2170 do until a = k 

2 1 80 if k$ = mid$(kb$,a, 1 ) then exit:etse a - a + 1 

2190 ioop 

2200 gosub 2230: if aOk Itien k ^ a;return 

221 gosub 2250:goto 21 60 

2220 rem = = 

2230 if sp<7 then sprile sn,1 ,c,0,0,0,0:else sprite 

sn, 1,0,0,1, 1,0 
2240 return 

2250 if c = 2 then c = 1 :else c = 2 
2260 if b = then gosub 720;b = 1 
2270 return 



Mandelbrot Halo: Creates ML PRG File on Disk 
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100 rem"' this program will create Ihe file 

"halo.obj" on disk *» 
110 rem" for the mandelbrot-set explorer program, 

"halo.bas" ** 
1 20 for i = 1 to 540: read x: cs = cs + x: next i 
1 30 if CS05631 6 then print "checksum error"; stop 
140open1,8,1,"0:halo.obj" 
1 50 print#1 ,chr${0)chr$(1 9); 
1 60 restore 

170 for 1=1 to 540: read x: print#1,ctir$(x);: next i 
180 close 1: end 
190: 

200 data 120, 142, 51, 17.132,169,173, 12 
210data 21,208, 27,169, 73,133,253,169 
220data 21,133,254,141, 12, 21,160, 65 
230 data 169, 3,145,253,136, 48, 7, 56 
240 data 233, 1 , 208, 246, 240, 242, 1 60, 4 
250 data 169, 2, 32,180,138, 32, 40,140 
260 data 160, 21,162, 28, 32, 0,140,160 
270data 4,169, 9, 32,180,138, 32, 40 
280 data 140, 160, 21,162, 33, 32. 0.140 
290 data 160, 4,169, 23, 32,180,138, 32 
300data 40,140,160, 21,162, 38, 32, 
310data140, 169, 0,133,251,141, 50, 17 
320 data 141, 52, 17,133,170,133,253,169 
330 data 112,1 33, 254, 1 69, 64, 1 33, 250, 1 64 
340 data 251, 196, 6,144, 31,165, 5,240 
350data 25,169, 63,141, 0,255,165, 6 
360data141,255, 111,165, 170, 141,254,111 
370data165, 169, 141,253, 111,169, 0,141 
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380 data 0,255, 88, 96,169, 0, 32,201 
390 data 132, 160, 21,169, 38, 32, 8,138 
400data160. 21,169, 33, 32, 24,138,160 
410data 21,162, 48, 32, 0,140,169, 
420data133, 252, 165, 7,141, 49, 17,164 
430 data 252, 196, 6, 144, 18, 230, 251, 238 
440 data 51, 17, 24,165,253,101, 6,133 
450data253. 144, 164, 230, 254,208, 160, 169 
460 data 0, 32,201,132,160, 21.169, 38 
470data 32, 8,138,160, 21,169, 28, 32 
480 data 137, 138, 32, 72,136,160, 21,162 
490data 43, 32, 0,140,160, 21,169, 13 
500data 32,212,139,160, 21,162, 53, 32 
510data 0,140,160, 21,162, 58, 32, 
520data140, 160, 21,162, 63, 32, 0,140 
530data160, 21.162, 68, 32, 0,140,160 
540 data 0,132,167,165, 1, 41, 64, 69 
550 data 250, 240. 24, 69,250,133,250,173 
560 data 17,208, 41,111,162. 1,164,250 
570 data 240, 3, 9, 16,202,142, 48,208 
580 data 141, 17, 208, 230, 1 67, 1 65, 1 67, 1 97 
590 data 8,144, 7,169, 0,133,167, 76 
600data240. 20,160, 21,169, 53, 32,212 
610 data 139, 160. 21.169, 58, 32, 8,138 
620data160, 21,169, 18, 32, 8,138,160 
630data 21,169, 48, 32,137,138, 32, 72 
640 data 136, 160, 21,162, 58, 32, 0.140 
650data160, 21,169, 68, 32,212,139,160 
660 data 21,169, 63, 32, 24,138,160, 21 
670 data 169, 43, 32,137,138, 32, 72,136 
680data160, 21,162, 53. 32, 0,140,160 
690data 21,169, 53, 32,212,139,160, 21 
700data169, 53, 32, 8,138,160, 21,162 
710data 63, 32, 0,140,160, 21,169, 56 
720 data 32,212,139,160, 21,169, 58, 32 
730data 8,138,160, 21,162, 68, 32, 
740 data 140, 160, 21,169, 63, 32,137.138 
750data 32, 72,136,160, 21,169, 23, 32 
760data 24,138, 32, 87,140, 48, 3, 76 
770 data 19. 20,165,167,240, 34,166, 5 
780 data 240, 1 2, 1 97, 1 69, 1 76, 2, 1 33, 1 69 
790 data 1 97, 1 70, 1 44, 2, 1 33, 1 70, 201 , 4 
800data144, 2, 74, 74,170,189, 73, 21 
810data133, 131, 32, 36,157, 32, 33,156 
820data165, 5,240, 16,169, 63,141, 
830data255, 165, 167, 164, 252, 145,253, 169 
840 data 0,141, 0,255,238, 49, 17,230 
850data252, 76,183, 19, 0, 0, 0, 
860data 0, 0,130, 0, 0, 0, 0,131 
870 data 0, 0, 0, 
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The Last Word 



Function 



[ramming 



Miklos Garamszeghy 

Toronto^ ON 



Several examples of how to re-program or de-aclivale the shift- 
<Run/Stop> and <Help> keys have recently appeared in 
Transactor's Bits and Pieces section as well as in several other 
magazine hint columns. Unfortunately, although most of the 
methods described work adequately under various conditions, 
they have all missed the very versatile routine buill into Ihe C- 
128 expressly for this purpose: the KERNAL PFKEY routine at 
65381 {$FF65), This funcfion is extremely easy to use and is 
very versatile. Furthermore, its use for redefining any program- 
mable key (including the shift-<Run/Stop> and <Help> keys) 
does not depend on knowing the length, absolute values or 
locations for any of the keys. It can be used in the following 
manner in either program or immediate mode: 

1) fill three consecutive zero page locations (such as 250, 251 
and 252) with the low byte, high byte and bank of the address 
of your new key definition text string, 

2) set the "a" register to the address of the first zero page 
location, the "x^" register to the number of the key to be 
defined (from 1 to 10), and the "y" register to the length of 
the new text string 

3) call the routine with a SYS 65381.a.x.y 

The length of the new function key definition does not have to 
be the same as the old one because all function key pointers are 
automatically updated when you define a new one- 
One example is as follows; 

T$= "new key definition" 
BANK1:AD = P0INTER(T$) 

LE = PEEK(AD):L0 = PEEK(AD+1):HI = PEEK(AD + 2) 
POKE 250,LO; POKE 251 .HI: POKE 252,1 
BANK 15: SYS 65381. 250,K.LE 

where K^ 1 to 8 for F1 to F8 

9 for shift-<RunyStop> 
10for<Help> 

To de-acIivale a key, thai is set it to a null string, a simple: 



BANK 15: SYS 65381 AK,0 
Is all that is required!! 

To restore the original key definitions at the end of your pro- 
gram, the following procedure can be used: 



Followed by: 



POKE 2564,129 
<RLjn/Stop>-<Restore> 



in immediate mode, or 



SYS 49275 



(in either immediate mode or program mode). 

Both of these methods activate the KERNAL initialization rou- 
tine which will also clear screen windows and tab definitions, 
and reset the colours and set the active screen {i.e. 40 or 80 
column) based on the position of the 40/80 key. If bit 3 of 
memory location 2564 is clear before engaging the routine, the 
function key definitions will be initialized as part of the process. 

While on the subject of function keys, here is a nice little do 
nothing piece of trivia: how to make function keys activate each 
other. 

Try entering this in immediate mode: 

KEY1/POKE210,0:POKE209,21 ' +CHR$(13) 

Then press Fl. It will continue to activate Itself in an endless 
loop until you hit <Run/Stop>-<Restore>. The reason is quite 
simple. BASIC'S input editor checks location 209 during key- 
board reads. If the value is non-zero, the corresponding number 
of characters are transferred from the function key buffer area, 
beginning at the offset location specified in 210, to the input 
buffer ready for execution. POKEing a non-zero value into 209 
will cause the inpiit editor to think that a function key has been 
pressed. The rest is simple mathematics to hgure out the offset 
into the function key buffer and the number of characters to 
transfer. 
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News BRK 



SubmHting NEWS BRK Press Releases 

If you have a press release you would like lo submit (or the NEWS BRK column, 
make sure that Ihe computer or device for which the product is intended is 
prominently noted. We receive hundreds of press releases for each issue, and 
ones whose intended readership is not clear must unfortunately go straight to the 
trash bin. It should also be mentioned here thai we only print product releases 
which ate in some way applicable to Commodore equipment. News of events 
such as computer shows should be received at least 6 nxtnths in advance. 

Transactor News 



Magazine Subscriptions 
Magazine Cover Price 
Disk Subscriptions 
Transactor Disks 
The Bits and Pieces Book 
Inner Space Antholt^ 
1541 ROM Upgrade Kit 
T-5hirls S - XL 
Jumbo T-Shirl 



19.00 Canadian 
4,25 Canadian 
55.00 Canadian 
9,95 Canadian 
17.95 Canadian 
17.95 Canadian 
69.95 Canadian 
15.95 Canadian 
19,95 Canadian 



* 



Our New Home 

Once again we have a new address. Actually, our last new address was just our 
post office box down the street. This new address is our new headquarters in the 
Beaver Creek business park of Richmond Hill, 

The Transactor 

85 West Wilmot Street, Unil'lO 

Richmond Hit I, Ontario Canada 

L4B 1K7 

phone (416) 764-^273 



Nt 



Yonge St, 



West Beaver Creek 



West Wilmot 



West Pearce 



Bayview Av. 



Hwy, '7 

West Beaver Creek 




Hwy404 



Leslie St, 



To 
HW7.40I 



If you're in the neighborhood, drop in on us for the grand tourl WeVe easy to 
find, FVom the Toronto area, lake Hwy 401 to Hwy 404, go north !o Hwy. 7, west 
to Leslie Street, go north two streets and that's West Wilmot (notice, no 'n' in 
'Wilmot'). Go west and we're the last building on the left (red bricks, dark green 
garage doors). Just past us there's a big empty lot so we may not be the last 
building on the left for long. 

Advertisers Wanted 

If anyone is interested in placing full-page, half-page or i^uarter-page colour or 
black and white ads in the Transactor, please contact us for rates and informa- 
tion. Yup, you heard rigiit. We'll lake ads now, but space is limiled. Our ceiling 
currently is the cover spots plus 5 pages of the interior. 

New Canadian Prices 

In an act of boundless generosity and financial miscalculation, we have until now 
given our Canadian customers a real break by pricing products Ihe same in 
Canadian and U.S. dollars. We fell good about giving our fellow Canadians a 
break, but that feeling is quickly giving way to the bad feelings we're getting 
about losing money. So, we have adjusted (raised) prices for products when paid 
in Canadian currency. It's also the first time in 7 years that subscription prices 
have gone up. 

With the exception of the Micro Sleuth diagnostic device, the U,S. prices remain 
the same. You will see the new prices on the subscription card, but here they are 
so you don't get taken by surprise; 



As mentioned above, the Micro Sleuth is an exception; the U.S. price goes from 
$89.95 to $99.95 U,S., while the price in Canadian dollars remains the same. 

Many of the price increases do not reflect the exchange rate exactly, but shipping 
to the U.S, is more expensive, and there's also brokerage fees. 

Cover Price Increase 

Our cover price In Canada Is up to S4,25, another good reason to subscribe. 
Although we're no longer on Ihe newsstand, some are still being shipped to the 
odd computer store, but in very few places. But even if you can buy them locally 
offamagazine racket's 34^ moreexpensivelhan subscribing, 40^ more in the 
US, 

Shipping F^ on Mail Orders 

We have added a small shipping/handling flat rale lo all mail orders. With ANY 
order, please add £2.00 Cdn, within Canada, $2.00 US in the stales, and $5.00 
US for foreign orders. This does NOT apply lo back issues (shipping costs are 
already built into Ihe price of back issues] or subscription orders (i,e, m^azine 
and/or disk subscriptions). 

Tkm'X Fbi^el the Sales Taxf 

Jf you are a resident of Ontario, please don't forget lo add Ihe 7 percent sales lax 
(0 all orders, including disk subscriptions. There is no lax on magazine 
subscriptions or books, but the lax applies to EVERYTHING else. 

Sign Of The Times 

We get many orders irt on our postage paid order card that show a Visa or Ma^a 
Card number. Each time we must call Visa or f^/C to get a verification of the carti 
number, expiry date, etc, even for small amounts. Why are gas stations and 
department stores nol required to do this? One reason: a signature. Thai 
signature means the person making the purchase is the same person who owns 
the card, a1 least in principle. If the card is not on Ihe "hot list" and we have a 
signature, many orders won^t need verification, which will save us hours, maybe 
days! And those days add up lo late shipments which you enjoy about as much as 
we do. 

You can help. Our order card now has a space for a signature. When using your 
credit card for payment, please sign, and be sure lo indicate the date it was 
written. Th^ way your signature is only good for that particular card. Visa and 
M/C want copies of our card submitted to match up with our invoicing, and if the 
difference between Ihe dale on your order card and our invoice date is loo big, 
we'll be catted to the question stand. . . and we don't want that. 

Dealer Inquiries Welcome 

The Transactor has several products besides our magazine and disk: the Bits and 
Pieces book, Ihe Inner Space Anthology, Ihe TransBASlC disk, the Potpourri disk 
{see ad this issue), and the Micro Sleuth. These products are currently being 
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markeled and sold Ihrough the magazine only. We would be happy to bring 
these products to a larger audience by selling to any imerested dealers; if you are 
one of them, please contact iis. 

Group Subscription Rates: The 20/20 Deal 

The Transactor has always been popular among Commodore user groups, so lo 
encourage new subscribers we are offering quantity discounts for magazine and 
disk subscriptions: 20 percent off for group orders of 20 or more subscriptions. If 
you can gel los^ether enough friends or club members, just put all the subscrip- 
tions in a single envelope, and you get the discount. You don't need to be a user 
group to quahfy - any 20 or more subscription cards in a single package get the 
20/20 deal, no questions asked, 

T-Shirt Offer CoDtinues 



number base. All programs contain source code and documentation; all can be 
run from the CLl, and some from Workbench, There's something for everyone 
on the Transactor Amiga disk. Price is S12,95 US, S14.95 Canadian. 

The Potpourri Disk: This is a C-64 product from the software company called 
AHA!, otherwise known as Mick Sullivan and Chris Zamara. The Potpourri disk 
is a wide assortment of 18 programs ranging from games lo educational 
programs to utilities. All programs can be accessed from a main menu or loaded 
separately, Wocopyprolecllonisusedonthedisk, so you can copy the programs 

you want to your other disks for easy access. Built-in help is available from any 
program at any time with the touch of a key, so you r>ever need lo pick up a 
manual or exit a program lo learn how to use it. Many of the progmms on the 
disk are of a high enough quality that they could be released on their own. but 
you get all 18 on the Potpourri disk for just $17.95 US / $19.95 Canadmn. See 
the Ad in this issue for more information. 



Y'know, [ just can't believe these T-Shirls. They were ordered from Vantage 
Sports here in Toronto, and if anyone else around southern Ontario ispiannmg to 
get some made, Vantage is ihe place to go. Their prices are a little higher, but the 
shirts are well worth it. Make sure to specify the "super opaquing process" if 
you're getting something screened onto them and they may just last forever. 
We've had the T's now for almost a year. I started out with two last July, and 
recently had to "borrow" one from slock to wear to a special event when going 
home to change would have taken me somewhat ouE of my way. Mow 1 can't tell 
the difference between my newest one and the other two which are easily 10 
months older. 

Order a combination magazine AND disk subscription, and one of these fabulous 
T-Shirts will be sent lo you FREE. Please indicate the size you want (sorry, 
Jumbo excluded) and the color on the order card. Before now the shirts came in 
ted only. Now we have red and bhie! The front features our mascot, Duke, in a 
snappy while tux and lop hat, standing behind our logo in 3D letters. 

Mail-Order Products No Longer Offered 

We liave removed several products from our mail-order card: The Gnome Speed 
Compiler and Gnome Kil Utility, the "pocket" series of software, PRISMAS 
SuperKit 1 541 . the BHIOO hardware course material, Ihe Anchor Volksmodems, 
and the Comspec 2 megabyte RAM expansion units. We still have some stock of 
the software and can order more of the other products if necessary, so we should 
be able to fill any orders from previous subscription cards. 

New Mail-Order Products 

Now the good news. As you can see on the mail-order card, we have four new 
Transactor products to offer you: 

The Bits and Pieces Disk: This di,sk contains all of the programs from the 
Transactor book of Bits and Pieces (the "bits book"], which in turn come Irom the 
"Bits and Pieces" section of past issues of the magazine. The "bits disk'^ can save 
you a lot of typing, and in conjunction with the bits book and its comprehensive 
index can yield a quick solution to many a programming problem. Price for the 
disk is the same as our regular disks, $8.95 US, 9.95 Cdn. 

Bits Book AND Disk: Gel both for just $19.95 US, 24.95 Cdn. 

The Amiga Disk is here! Finally, the first Transactor Amiga disk is available. It 
contains all of the Amiga programs presented in the magazine, of course, 
including source code and documentation. You will find the popular "PopCol- 
ours" program, the programmer's companion ^'Structure Browser", the Guru- 
killing "TrapSnapper", user^friendly "PopToFront", and others. In addition, we 
have included public domain programs - again, with documentation - that we 
think Transactor readers will find useful. Among these are the indispensable 
ARC; Csh, a powerful CLl -replacement DOS shell; BLink, a linker that is much 
faster and has more features than the standard ALink; Foxy and Lynx, a 6532 
cross assembler and linker that makes its debut on the Amiga Disk; and an 
excellent shareware text editor called UEdiL In addition, we have included our 
own expression-evalualor calculator that uses variables and works In any 



TransRASlCII 

An updated TransBASIC disk is now available, containing all TB modules ever 
printed. The first TransBASIC disk was released just as we published TransBASIC 
Column *9 so the modules from columns 10, 1 1 and 12 did not exist. The new 
manual contains everything in the original, plus all the docs for the extras. 

Prices for the new TB disk are S17.% US and S19-95 Cdn. People who ordered 
TB 1 can upgrade to TB II for the price of a regular Transactor Disk (8,95/9.95j. II 
you are upgrading, you don't necessarily need lo send us your old TBdisk; if you 
ordered it from us, we will have your name on file and will send you TB II for the 
upgrade price. Please indicate on the order form that you have the original TB 
and want it upgraded. 

Some TBs were sold at shows, etc, and they won't be recorded in our database. If 
that's the case, just send us anything you feel is pnxtf enough {e.g. photocopy 
your receipt, your manual cover, or even the diskette), and TB II is yours for the 
upgrade price. 

The Glink is Backl 

While moving Irom Milton to Richmond Hill^ guess wEiat we found? No, not G- 
Links, but enough boards to make about 200 more. Glink parts are common 
garden variety type, but when we ran out of boards we discontinued it. Now that 
we have more, we've decided to make more. Too bad we didn't find them 
sooner . . many orders for this item had to be denied. However, we were 
surprised to find that many of the parts needed have had price increases since 
we discontinued it. Regardless, they're still the least expensive interlaces aiound, 
Ghnks are S59.95 US, 69.95 Cdn. 

The Glink is a Commodore 64 lo IEEE interface. It allows the 64 to use IEEE 
peripherals such as the 4040, 8050, 9090, 9060, 2031, and SFD-iOOl disk 
drives, or any IEEE printer, modem, or even some Hewlett-Packard and 
Tektronics equipment like oscilloscopes and spectrum analyzers. The beauty of 
the Glink is its "transparency" to Ihe C64 operating system. Some IEEE 
interfaces for the 64 add BASIC 4,0 commands and other things to Ihe system 
that sometimes interfere with utilities you might like to install. The Glink adds 
nothing! In fact it's so transparent that a switch is used to toggle tietween serial 
and IEEE modes, not a linked-in command like some of the others. Switching 
from one bus lo the other is also possible with a small software routine as 
described in the documentation. 

As of Transactor Disk '19, a modified version of Jim Butte rfield's "COPY- ALL' 
will be on every disk. It allows file copying from serial lo IEEE drives, or vice 
versa. 

New Set of MicroHcbe 

Some of our back issues are not available any more, but they're all available on 
microfiche. Since we're now into Volume 8, a set of microfiche will include all 
issues from Volume 4 through Volume 7. Prices are $49,95 U.S and $59,95 Cdn. 
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Transactor MaU Order 

The following details are for products listed on the mail order t^ard. If you have a 
particular question about an item that isn't answered here, please write or call 
We'll get back to you and most likely incorporate the answer into future editions 
of [hese descriptions so that others might benefit from your enquiry. 

■ Moving Pictures ■ the C-64 Animation System. S29.9S (US/C) 

Tills package is a fas!, smooth, full-screen animator for the Commodore 64, 
written by AHAi (Acme Heuristic Applications!). With Moving Pictures you use 
your favourite graphics tool to draw the frames of your movie, then show it at full 
animation speed with a single command. Movie 'scripts' written in BASIC can 
use the Moving Pictures command set to provide complete control of animated 
creations. BASIC is still available for editing scripts or executing programs even 
while a movie i^ being displayed. Animation sequences can easily be added to 
BASIC programs. Moving Pictures features include: split screen operation - part 
graphics, part text - even while a movie is running; repeat, stop at any frame, 
change position and colours, vary display speed, etc; hold several movies in 
memory and switch instantly from one movie to another; instant, on-line help 
available at the touch of a key; no copy protection used oa disk, 

■ Transactor T-Shirts. *1 3.95 US, $1 5.95 Cdn. 

■ Jumbo T-Shirt, $17.95 US, $19.95 Cdn. 

As mentioned earlier, they come in Small, Medium, LaT^e, Extra Lai^e, and 
Jumbo. The Jumbo makes a good night-shirt/beach- top - it's BIG. I'm 6 fool tall, 
and weigh in a1 a slim 1 50 pounds - the Small fits me tight, but that's how ( like 
them. If you don't, we suggest you order them t size over what you usually buy, 

■ The Transactor Book of Bits and Pieces '*1, $14.95 US. $17.95 Cdn. 

Not counting the Table of Contents, the Index, and title pages, it's 246 pages of 
Bits and Pieces from issues of The Transactor, Volumes 4 through 6. Even if you 
have all those issues, it makes a handy reference - no more (lipping through 
magazines for that one bit that you just know is somewhere. , , Also, each item is 
forward /reverse referenced, Occassionally the items in the Bits column ap- 
peared as updates to previous bits, Bits that were similar in nature are also cross- 
referenced. And the index niakes it even easier to find those quick facts that 
eliminate a lot of wheel re-inventing. 

■ The Tr@ns@ctOf 1 541 ROM Upgrades, $59.95 US, $69.95 Cdn. 

You can burn your own using the ROM dump (ile on Transactor Disk '13. or you 
can gel a set Irom us. There are 2 ROMs per set, and they fix not only the 5AVK@ 
bug. but a number of other bugs too (as described in P,A. Slaymaker's article, Vol 
7, Issue 02). Remember, if SAVE® is about to fail on you, then Scratch and Save 
may just clobber you too. This hasn't been proven 100%. but these ROMs will 
eliminate any possibilities short of deliberately causing them (ie. allocating or 
opening direct access buffers before the Save), 

NOTE: Our ROM upgrade kit does NOT fit in the 1 541C drives. Where we supply 
two ROMs, Commodore now has it down to one MASSIVE 16 Kbyte ROM, We 
don't know if the new drives still contain the bugs eliminated by our kit, but we'll 
hnd out and re-cut a second kit if necessary. In the meantime, 1541C owners 
should not onJer this item until further notice, 

■ The Micro Sleuth: C64/1541 Test Cartridge, $99,95 (US), S129,95 (Cdn) 
This cartridge, designed by Brian Steele (a service technician for several schools 
in southern Ontario), will test the RAM of a C64 even if the machine is too sick to 
run a program! The cartridge takes complete control of the machine. It tests all 
RAM in one mode, all ROM in another mode, and puts up a menu with the 
following choices: 

l)Check drive speed 

2) Check drive alignment 

3) 1541 Serial tesl 

4) C64 serial tesl 
5)Joystickport 1 test 

6) Joystick port 2 test 

7) Cassette port test 

8) User port test 



Asecond boanJ, that plugs onto the User Port, contains 8 LEDs that lets you zero 
in on the faulty chip. Complete with manual. 

■ Inner Space Anthology $14.95 US, $17.95 Cdn. 

This is our ever popular Complete Commodore Inner Space Anthology. Even 
after a year and a half, we still get inquiries about its contents. Briefly, The 
Anthology is a reference book - it has no ''reading" material (ie. ''paragraphs"). 
In 122 compact "vages, there are memory maps for 5 CBM computers, 3 Disk 
Drives, and maps of COMAL; summaries of BASIC commands, Assembler and 
MLM commands, and Wordprocessor and Spreadsheet commands. Machine 
Language codes and modes are summarized, as well as entry points to ROM 
routines. There are sections on Music, Graphics, Network and BBS phone 
numbers. Computer Clubs, Hardware, unit-to-unit conversions, plus much 
more. , , about 2,5 million characters total! 

■ TheTransBASlC Disk II $17,95 US, $19.95 Cdn. 

This is the complete collection of every TransBASIC module ever published. 
There are over 1 40 commands at your disposal. You pick the ones you wan! to 
use, and in any combination! It's so simple that a summary of instructions fits 
right on the disk label. The manual describes each of the commands, plus how to 
write your own commands. 

Transactor Disks, IVansactor Back issues « and Mkrofiche 

All issues of The Transactor from Volume 4 Issue 01 forward are now available 
on microfiche. According to Computrex, our fiche manufacturer, the strips are 
the "popular 98 page size", so they should be compatible with every fiche reader. 
Some issues are ONLY available on microfiche - these are marked "MF only''. 
The other issues are available in both paper and fiche. Don't check both boxes 
for these unless you want both the paper version AND the microfiche slice for the 
same issue. 

To keep things simple, the price of Transactor Microfiche is the same as 
magazines, both for single copies and subscriptions, with one exception; a 
complete set of 24 (Volumes 4, 5, 6, and 7) will cost just $49.95 US, S59.95 Cdn. 

This list also shows the "themes'' ot each issue. "Theme issues" didn't start until 
Volume 5, Issue 01 . The Transactor Disk '1 contains all programs from Volume 
4, and Disk "2 contains all programs from Volume 5, Issues 1-3, Afterwards 
there is a separate disk for eacli issue. Disk 8 from The Languages Issue contains 
COMAL 0.14, a soft-loaded, slightly scaled-down versktn oJ the COMAL 2.0 
cartridge. And Volume 6, Issue 05 published the directories lor Transactor Disks 
Ho 9, 



■ VoL 4, 

■ VoL4, 

■ VoL 4, 

■ VoL 5. 

■ Vol. 5. 

■ Vol. 5^ 

■ Vol, 5, 

■ VoL 5, 

■ VoL 5, 

■ VoL 6, 

■ Vol. 6, 

■ VoL 6, 

■ VoL 6, 

■ VoL 6, 

■ Vol. 6, 

■ VoL 7, 

■ Vol. 7, 

■ Vol. 7, 

■ Vol. 7. 

■ VoL 7, 

■ Vol. 7, 

■ Vol.8, 

■ VoL 8, 



Issue 01 (■ Disk 1) ■ Vol. 4, Issue 04 - MF only 

Issue 02 (■ Disk 1) ■ Vol, 4, l^sue 05 - MF only 

Issue 03 (■ Disk 1) ■ Vol. 4, Issue 06 - MF only 

IssueO) -Sound and Graphics 

Issue 02 - Transition to Machine Language - MF only 

Issue 03 - Piracy and Protection - MF only 

Issue 04 - Business & Education - MF only 

Issue 05 - Hardware ^ Peripherals 

Issue 06 - Aids & Utilities 

Issue 01 - More Aids & Utilities 

Issue 02 - Networking & Communications 

Issue 03 - The Languages 

Issue 04 - Implementing The Sciences 

Issue 05 - Hardware & Software Interfacing 

Issue 06 - Real Life Applications 

Issue 01 - ROM / Kernel Routines 

Issue 02 - Games From The Inside Out 

Issue 03 - Programming The Chips 

Issue 04 - Gizmos and Gadgets 

Issue 05 - Languages 11 

Issue 06 - Simulations and Modelling 

Issue 01 - Mathematics 

Issue 02 - Operating Systems 



(I 



(I 



(\ 



I Disk 1) 
I Disk 1) 
I Disk 1) 
I Disk 2] 
I Disk 2) 
I Disk 2) 
I Disk 3) 
I Disk 4] 
I Disk 5) 
I Disk 6) 
I Disk 7) 
I Disk 8) 
I Disk 9) 
Disk 10) 
Disk 11) 
Disk 12) 
Disk 13) 
Disk 1 4) 
Disk 15) 
Disk 16) 
Disk 17) 
Disk IS] 
Disk 19] 
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Industry News 

The following irems, complied by Astrid Kumas, are based on press releases 
recently received from the manufacturers. Please note that pnxluct descriptions 
are not the result of evaluation by The Transactor. 

Portland Company Vanishes 

News BRK in Volume 1. Issue 6 carried an item about a video digitizer named 
Eye-Scan for the Commodore 64 from a company named Digital Engineering 
and Design in Porttand, Oregon, It seems that Digital Engineering has either 
moved or folded, as neither we nor several readers who have tried have been 
able to get in touch with them. If you are out there somewhere, Digital, let us 
know where you went. We might have .some customers for you. 

4040 Drive Internals 

Depending on reader response, a book could soon become avail^le that 
uncovers, for the very first time, all inner details of the Commodore 4040 drive- 
Within this vast tome of knowledge will be found an in depth and documented 
look into the Floppy Disk Controller RAM and ROM, the Interface Processor 
RAM and ROM, plus theory on how it all fits together A useful book for specific 
occasions. The book is close to completion right now, but reader response is 
required to determine If full production would be worth while. If you are at all 
interested, and would like to be kept informed of the book's prepress, then send a 
note today to the following address, [f the 4040 book is successful, then an 8050. 
8250, 9060 and 9090 will follow, 

Hilaire Gagne 

1074 Webbwood Drive 

Sudbury, Ontario, Canada 

P3C-3B7 

CAD for the Amiga 

On November 17, 1986 Aegis Development began to ship their latest Amiga 
product, Aegis Draw Plus, to dealers and distributors. This new computer-aided 
design package for the Amiga allows up to six independent drawings of 256 
layers each to be worked on using a basic 5I2K Amiga computer (although one 
megabyte of f^M is recommended). Full 16-colour c^nbility is available and 
drawings may be saved in the Amiga's standard IFF file format lor use in other 
programs such as Aegis Images, Graphicraft, and Deluxe Paint paint programs. 

Aegis Draw Plus is controlled either with the mouse and pull-down menus, or 
entirely with the keyboard for more advanced users. Some of the capabilities 
beyond the ability to draw lines and shapes include: 

Basic features; 

• ruler lines with variable measure types (decimal, feel, inches, etc.) 

• adjustable grid sizes and on/off toggle 

• plotter drivers selectable via menu for use with multiple plotters 

• advanced printer support for clean dot matrix output (72 dpi) 

• unlimited levels of zoom 

• variable line weights and fill patterns, including solid fills 

• full 360 degree rotation of any object or part 

• resizing of any object or part 

• 256 selectable levels (planes) to work on 

• adjustable and savable color palette 

• text can be typed directly on any part of any display 

• multiple resolution (640x400 - Imb RAM required - and 640x200) 

• file compatibility between resolutions 

• eight-way mirror function- 
Advanced features: 

• parts library for storage of often-used objects 

• "slats" function allows precise numeric adjustment of any item 

• hook tool for distorting polygons (as found in Aegis Animator) 

• array tool for creating repeated objects in a pattern 



• function key support for toolbox selection 

• arcs allow variance of angle and radius in a single operation 

• automatic dimensioning and scaling 
•plot spooling 

• plot files can be saved to disk for reprinting 

• fully 1.2 DOS compatible 

• grid size and rounding consistent in zoom operation 

• locked font sizes (adjustable via stats) 

• customizable plotter driver for any hardware-compatible plotter 

• not copy protected for easy transfer to hard drive 

• files are compatible between Aegis Draw and Aegis Draw Plus 

• works with Genlock, digitizers, track balls, expanded memory (up to 8 
megabytes), and hard disks. 

Aegis Draw Plus retails for $259,95 (US), Registered users who own Aegis Draw, 
the company's firs! design prt^ram for the Amiga, will receive notification of 
Aegis' update policy 

For further information on Aegis Draw Plus, contact: 

Aegis Development. Inc. 
2210WilshireBlvd,*277 
Santa Monica CA 90403 
(213)306-0735 

B.E.S.XBusineas Managemenl 

B£.S.T inc. (Business Electronics Software & Technology, Inc) announces 
BE.ST. Business Management for the Amiga computer, an accounting/ business 
information management software system that includes Order Processing, 
Inventory Management, Services Management, Accounts Receivable, Accounts 
Payable and General Ledger Special features of the program listed by the 
manufacturer allow the user to: 

• create and save as many as fifteen customized financial reports; 

• select from fourteen preformatted Inventory reports, or create and save up to 
fifteen unique Inventory reports, from a menu of 33 inventory performance 
factors; 

• define and manage, by invoice or by customer, nine different sets of "Terms 
and Conditions" of sale; 

• define and categorize Services, units of service and fees per service unit, and 
"bill" labour charges or "no charge" warranty services; 

• automatically update Inventory, Receivables and Ledger accounts when a 
business procedure is completed; 

• manage multiple sales/ excise tax requirements. 

The package includes a 380-page owners manual, containing 260 screen 
photographs and 50 sample reports. For further information regarding price and 
availability, contact: 

B.E.S.T,, Inc. 
P.O. Box 230519 
Tigard, OR 97224 
(503] 684-6655 
1-800-368-BEST 

Public DomaiD Programs 

Two US-based sources of public domain software have recently come to our 
attention. They are the Schneider Software Company and the Folklife Terminal 
Club, 

Schneider Software at 23 East Green SE„ West Hazleton, PA 18201 sells 
F^ugalware, public domain software for the Commodore 64/128 and the 
Commodore Amiga. Three hundred disks containing over 80OO programs 
presently run on the C-64 and C-128- Some categories include Games, Utilities, 
Business, Graphics and Music, 

The price per disk is $2.50 (US), not including quantity discounts. The Public 
Dornain Catalogue (on disk) and a free disk conTaming a word processor, a 
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database and a spreadsheet plus thirty additional prc^rams can be obtained for 
S2.00 (US) postage and handling. 

From the same company, twenty-five disks arc available for the Amiga. The 
price is 54.95 (US) per disk plus $2,00 (US) (or postage and handling. 

Folklife Terminal Club, an international Commodore computer users group, 
provides support [or the nus/4, VIC 20, PET, CBM, B-128, C-64 and C-12S 
computers. The club has issued new catalogues of software from their archives, 
which contain more than 6000 user written prt^rams in the areas of Education, 
Science. Business, Games, Music, Graphics and more than twenty-five other 
categories. 

The programs are stored on diskettes and are usable on various configurations of 
the orphaned comguiers as weli as the current C-64 and C-128 machines. The 
software itself is free. The first diskette thai should be ordered is the new 
Catalogue On A Disk which contains an automatic software finder program^ a 
listing of all the available software in the Fotklife library, complete instructions 
and Associate Membership in the club. There is a copying and mailing fee of 
$15,00 (US) per diskette. Use bank-issued cheques payable on a US bank or Post 
office International f^oney Orders. There is a separate Catalogue Disk for each of 
the Commodore computers, so specify which computer and disk drive you have. 
Contact; 

Folklife Terminal Club 
Box 555-HN 
Co-op City Station 
Bronx, NY 10475 

The New PAL JR. 

Byte By Byte Corporation has announced that their product for the Amiga 
computer, PAL JR, has been completely redesigned. 

The PAL JR is a two-slot, fully Zorro compatible auto-c<mfip(re expansion 
system. The standard PAL JR system contains 1 MByte of fast f^M, a battery 
backed clock calendar, and a 20 MByte hard disk drive with DMA controller The 
DMA controller occupies one slot and will support a SCSI option. The PAL JR 
system is contained in a low profile case designed to sit on top of Amiga, 

Shipment of the PAL JR will star! in the first quarter of 1987, Pre-paid orders will 
be given preference when shipping commences. The price will be SI495. 00 US, 
and all orders will be filled directly by Byte By Byte, For additional information, 
or to place an order, contact: 

Byte By Byle Corp, 

Arboretum Plaza 11 

9442 Capital of Texas Highway North 

Suite 150, Austin TX 78759 

(512)343-4357 

NLQ for the Gemioi lOX 

ChessofI Ltd. has developed software-controlled near letter Quality print for the 
Gemini I OX, Commodore 64^ 1541 honie computer system. 

Their product, Gem-LQ, operates on ordinary sequential files, which can be 
prepared directly with most word processors. It accepts either true ASCII or 
Commodore codes. The user can modify any character, or prepare completely 
new customized character sets. 

Gem-LQ is available exclusively from Chessoft Ltd, for $29,95 (US) ppd. plus 
$3,00 (US] for overseas orders. For an original printout sample and further 
information, interested C-64 users are invited to send $1,00 (US - refundable) to: 

Chessoft Ltd- 
723 Barton St. 
Mt. Vernon 
IL 62864 



Supradrive Amiga Hard disk 

Supra Corporation has announced the release of SupraDrlve hard disk systems 
for the Amiga computer. The SupraDrive system includes four integrated fea- 
tures: hard disk drive, real-time dock with battery backup for time and date 
retention, SCSI expansion port, and the capability to expand the Amiga's fUM 
mernory, 

SupraDrives are available in 20, 30, and 60 mb capacities and come ready to 
plug-in and use. The retail prices are S995, $1 195, and $1995 (US) respectively. 

The SupraDrive plugs onto the Amiga's expansion connector and features 
&ipra's own proprietary interface for high-speed data transfers. The data 
channel is capable of burst data transfers of over 250 KB per second. 

The SupraDrive mterface has the capability of adding plug-in RAM rriodules 
with capacities from 512K to 4 megabytes of Fast Ram. The expansion RAM 
boards and hard disk are powered by the SupraDrive's own power supply. For 
more information call; 

John Wiley (503)967-9075 
1133 Commercial Way 
Albany, OR 97321 

Auto Disk Menu/ Program Loader 

Autoload, a disk file directory and loading utility, is now available from Southern 
System Services forthe Commodore 64» 64Cf 128, SX-64 and DX-64 computers 
with the 1541 or 1571 (or equivalent) disk drive. 



Wtien saved as the first prc^ram on disk, Autoload provides two keystroke disk 
directory screen listing for up to 1 00 disk files, single keystroke file load and run, 
forward and reverse file listing window scroll, function key exit to BASIC with 
single keystroke directory prc^ram restart and function key directory reload. 

Autoload is completely menu driven, and can be customized to list only boot 
files and to operate or interact with drive addresses 8^ 9, 10 and 1 1 , Deleting itself 
from the directory listing, Autoload is transparent to the user. 

The unprotected program costs $18,00 (US), Make cheque or money order 
payable to: 

Southern System Services 

B07Krenek 

Crosby, TX 77532 

(713)328-3451 

A-Talk Commiinicatioa Tools for the Amiga 

Ftlsina Software announces the release of A-Talk, an advanced communication 
and terminal program for the Amiga. A-Talk is a set of communication tools that 
work together to help you collect, control, and transmit data with your Commo- 
dore Amiga. A-Talk supports Kermit, Xmodem and CompuServe "B" error- 
checking protocols^ as well as allowing transfer of standard ASCI! files. A script 
language called "Dial-Talk^' allows you to automate your Ic^in process and 
includes a phone directory and programmable function keys. Standard Lt^in 
scripts are included for connecting with various networks. 

Full ANSI terminal emulation is supported, and Termcap and terminfo descrip- 
tions are included to allow use of full-screen editors like Emacs and vi on UNIX 
systems. A-TALK for the Amiga list for $49,95. A-TALK is NOT copy protected. 

Felsina Software Inc. 

3175 S.Hoover Street, ^ite 27S 

Los Angeles, California 9OO07 

(213)747-8498 
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New! Impmved! 

TRANSBASIC 2! 



with SYMASS 















used to be so ashamed of my dull, messy code, but 
no matter what I tried I just couldn't get rid of those 
stubborn spaghetti stains!" writes Mrs. Jenny R. of 
Richmond Hill, Ontario. "Then the Transactor people 
asked me to try new TransBASIC 2, with Symass^. 
They explained how TransBASIC 2, with its scores of 
tiny "tokens', would get my code looking clean, fast! 

"I was sceptical, but I figured there was no harm in 
giving it airy. Well, all it took was one load and I was 
convinced! TransBASIC 2 went to work and got my 
code looking clean as new in seconds! Now I'm telling 
all my friends to try TransBASIC 2 in their machines!" 



TransBASIC 2, wtth Symass, the symbolic assembler. 
Package contains all 12 sets of TransBASIC modules 
from the magazine, plus full documentation. Make your 
BASIC programs run faster and better with over 140 
added statement and function keywords. 

Disk and Manual $17.95 US, $19.95 Cdn. 

(see order card at center and News BRK for more info) 

TransBASIC 2 

"Cleaner code, load after load!" 



Bits & Pieces I: 



Th 






From the famous book of the same name. Transactor 
Productions now brings you Bits & Pieces I: The Disk! 
You'll thrill to the special effects of the screen 
dazzlersi You'll laugh at the hours of typing time 
you'll savel You'll be Inspired as you boldly go 
where no bits have gone beforel 



"Extrsordinariiy faithful to the plot 
of the book. . . The BAM alone is 
worth the price of admissioni" 

Vincent Canbyte 



'Absolutely 

magnetlcl!" 

Gene Syscall 



4 / 



If you mount only one bits disk in 1 987, make it this 
onel The fully cross-referenced index is unforgettable! 

Recs Read, New York Tl$ 



WARNfNG: Some sectors contain null bytes. Rated GCR 



BITS & PIECES i: THE DISK, A Myiar Film, in association with Transactor Productions. 

Playjng at a drive near youi 

DrskS8.95US, S9.95 Cdn. Book SI 4.95 US, S? 7.95 Cdn. 
Book S Disk Combo Just S 7 9,95 US, S24,95 Cdnl 
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The Potpourri Disk 



Hdlpl 



This HELPful utility gives you Instant 
menu-driven access to text files 
at ths touch of a key - while ony 
program Is runnlr>Ql 



Loon Helper 



How much Is that loan really going 
to cost you? Which Interesl rate 
can you afford? With Loan Helper, 
the answers are as close as your 
friendly 641 



Keyboard 



Learning how to play the piano? 
This handy educational program 
mal<es It easy and fun to learn the 
notes on the keyboard. 



Flledump 



Examine your dlak files FAST with 
this machine language utility, 
Handles alx formats, Including hex, 
decimoL CBM and ffue ASCII 
WordPro and SpeedScrlpt, 



Anagromi 



Anagrams lels you unscramble 
wards for crossword puzzles and 
the like. The progrom uses a recur- 
sive ML subroutine for maximum 
speed and efficiency 



r 



Life 



A FAST machine languoge version 
of mathematician John Horton 
Conway's clasaic simulation. Set 
up your own 'colonies' and watch 
them growl 



War Balloont 



Shoot down those evil Nazi Wuf 
Balloons with your handy Acme 
CannonI Don't let them get awayl 



Von Googol 



At lasti The mad philosopher, 
He^QCi von Googol brings her own 
brand of wisdom to the small 
screeni If this is 'Ar, then It M ain't 
naturall 



News 



Save the money you spend on 
those supermarket tabloids - this 
program will generate equally 
convincing headline copy - for 
free I 



[ 



Wrd 



The uttimate In eaBy-to-uae data 
bote programs, WRD lets you 
quickly and simply create, exam- 
ine and edit Just about any data, 
Comes with sample file. 



auiz 



Trivia fanatics and students alike 
wilt have fun with this program, 
which gives you multiple choice 
tests on material you have en- 
tered with the WRD program. 



AHAI Lander 



AHAl'a great lunar lender program. 
Use either joystick or keytward to 
compete against yourself o^ up to 
8 olher players, Wotch out for 
space mines! 



Bag the Elves 



A cute little arcade-style gome: 
capture the elves In ihe bag as 
quickly as you can - but don't get 
the good el 



Blockjock 



^ 



The most dexible btack]ack simula- 
tion you'll find anywhere Set up 
youf favourite rule variations for 
doubling, surrendering ond split- 
ting the deck. 



File Compare 



Which of those two files you )u5t 
created Is the most recent ver- 
sion? With this great utility you' 
never be left wonder Ir^g, 



Ohoul Dogs 



Arcade maniacs look outi You' 
need all your dexterity to handle 
this wicked Joysflck-busterl These 

mad dog-monsters from ipoce 
are not for rx^vicest 



Octagoni 



Just the thing for you Menao types. 
Octagons is a challenging puzzle 
of the mind Four levels of ploy, 
and a tough 'memory' variation 
for real experts! 



•ocktireett 



A nifty arcade game. 100% ma- 
chine language, that helps you 
learn the typewriter keyboard 
while you playl Unlike any lyping 
program you've seeni 



All the above proorams. Just $17,95 US. $19.95 Canadiaa No, not EACH of the 
above programs, ALL of the above programs, on a single disk accessed 
independently or from a menu, with buiit-in menu-driven heip and fast-ioader 

The ENTIRE POTPOURRI COLLECTION 

JUST $17.95 US!i 



See Order Card at Center 




At lift you can unleash the graphics potential of your 
Commodore 128 to achieve performance which rivals thai of 
16-bll micros! Imagine your 128 (or 128-D) producing 
resolution of 640 x 200 In monochrome and 640 x 192 in 16 
colors without any additional hardware, Sound Impossible? 
Not with BaBic 8, the new graphics language extension. 

Baste I add« over 50 new graphics commands to standard 
C-128 Basic. Just select one of many graphics modes and 
draw 3-D lines, boxes, circles and a multitude of solid 
shiipes with a single command. We've even added 
commands for windows, fonts, patterns and brushes. 

To demonstrate the power and versatility of this new 
graphics language, we have created Basic Paint, a flexible 
icon-based drawing application. Written in Basic 8, Basic 
Paint supports an expanded Video RAM (64K), RAM 
Expanders. Joystick and the New 1351 Proportional Mouse. 

Also Included la an icon-based desk-top utility which 
provides quick and convenient access to each o( your very 
own Basic 8 creations. 

All this graphics potential Is yours at the special introductory 
price of $39,95. The package includes Basic 8. Basic Painl, 

the desk-top utility, a 180-page manual and a run time 
module. {80-Column RGB Monitor Required) 




MaII ^oiit ard«f W. 

Compjler Mart, Dept. Q ■ 2700 NE Andreaen HoafJ • Vanoauver, WA 9SA61 

Phone ortJciFa WQlcome 300-6afi-l3g[l 

fianiB day ahipping/Nn COD orders ouTaldB U S 

CHECKS, MONEY ORDERS OR VtSA/MASTERCARD. 

PLEA BE NOTE: FrH thipplng k hand lino an ill orcl*ri ■ CO.D. add 13,00 

lo latil ordsr ■ AN grdin muil b* p«kl In U.& luitdit 




Complete Package 

$39.95 

*Ditall« ln«ide paLK^tja 



